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1.0 GENERAL INFORMATION 
1.1 PROGRAM ABSTRACT 


aa IS_A POP-11/23 RESIDENT DIAGNOSTIC WHICH CHECKS THE FUNCTIONALITY 

OF TSVOS MAGTAPE SUBSYSTEM WHILE CONNECTED TO A POP-11//23 SYSTEM 

(Q- aus). THE PROGRAM PROVIDES ERROR MESSAGES WHICH IDENTIFY FAILING 
FUACTIONS THAT AID IN THE REPAIR OF THE DEVICE. THIS DIAGNOSTIC CONSIST OF 
TWELVE TEST. TEST 1-9 — EXECUTED IN SEQUENCE. TEST 10-12 ARE STAND ALONE TEST 
WHICH ALLOW THE ne TO PERFORM SPECIFIC FUNCTIONAL TEST ON SCOPE LOOPS 

ON CERTAIN FUNCTIONS 


THIS OIAGNOSTIC HAS BEEN WRITTEN FOR USE WITH THE DIAGNOSTIC 
TWARE (SUPERVISOR). 


THIS PROGRAM CAN USED WITH XxDP AND PAPER 
TAPE. FOR A COMPLETE DESCRIPTION OF THE RUNTIME SERVICES, REFER 
TO THE XXDP+ USER'S MANUAL. THERE IS A BRIEF DESCRIPTION OF 
THE RUNTIME SERVICES IN SECTION 2 OF THIS DOCUMENT. 

1.2 SYSTEM REQUIREMENTS 

PDOP-11/23 PROCESSOR AND MEMORY 

CAUTION: DIAGNOSTIC REQUIRES 32K WORDS OF MEMORY 

(26K USEABLE AND 4K RESERVED FOR I/0 PAGE) 

TSVOS MAGTAPE SUBSYSTEM (DRIVE AND CONTROLLER) 

CONSOLE TERMINAL 

PDP-11 DIAGNOSTIC SUPERVISOR (HSAAA.SYS VERSION 34 OR LATER) 
PDP-11 DIAGNOSTIC LOADER/MONITOR (XXDP-+) 

1.3 RELATED DOCUMENTS AND STANDARDS 

DIGITAL EQUIPMENT CORPORATION DOCUMENTS: 


CHQUS XXDP+ USERS homer: DOCUMENT NUMBER AC -F348E -MC 
DATE: 14 ALY 1980 


2. TSVvOS parm gt Be USER'S GUIDE; DOCUMENT NUMBER EK-TSVOS5-UG-001 


DATE: AUGUST 

3. TSVOS TRANSPORT SUBSYSTEM TECHNICAL MANUAL; DOCUMENT NUMBER EK-TSVOS-TM-001 
DATE: AUGUST 1962 

4. TSVOS TRANSPORT SUBSYSTEM INSTALLATION MANUAL; DOCUMENT NUMBER EK -TSVOS-IN-001 
DATE: AUGUST 1962 
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1.4 DIAGNOSTIC HIERARCY PREREQUISITES 
FUNCTIONAL POP-11/23 CENTRAL PROCESSOR AND MEMORY 
FUNCTIONAL CONSOLE TERMINAL 
FUNCTIONAL STANDALONE DIAGNOSTIC SUPERVISOR 
FUNCTIONAL DIAGNOSTIC LOADER/MONITOR (XXDP-+) 
1.5 ASSUMPTIONS 
L HARDWARE EXCEPT THE HAROWARE UNDER TEST IS ASSUMED TO WORK 
PROPERLY OR FALSE ERRORS CAN BE REPORT EO. 
> Y Lisa BEING USED ON THE TSOS TRANSPORT IS A KNOWN GOOD REEL 
CVTSAA HAS RUN SUCESSFULLY. 
2.0 OPERATING INSTRUCTIONS 


THIS SECTION CONTAINS A BRIEF DESCRIPTION OF THE RUNTIME SERVICES. 
FOR DETAILED INFORMATION, REFER TO THE XXDP+ USER'S MANUAL (CHQUS). 


2.1 COMMANDS 
COMMANDS FOR THE DIAGNOSTIC RUNTIME SERVICES 


THERE ARE ELEVEN LEGAL 
(SUPERVISOR). THIS SECTION LISTS THE COMMANDS AND GIVES A VERY 
BRIEF DESCRIPTION OF THEM. THE XXDP+ USER'S MANUAL HAS MORE DETAILS. 


COMMAND EFFECT 
START START THE DIAGNOSTIC FROM AN INITIAL STATE 
RESTART START THE DIAGNOSTIC WITHOUT INITIALIZING 
CONTINUE CONTINUE AT Lag THAT WAS INTERRUPTED (AFTER tC) 
PROCEED CONTINUE FROM AN ERROR HALT 
EXIT RETURN TO XXDP+ MONITOR (XXDP+ OPERATION ONLY!) 
ADO ACTIVATE A UNIT FOR TESTING CALL UNITS ARE 
IDERED hw BE ACTIVE AT START TIME 
DROP DEACTIVATE A UNIT 
PRINT PRINT STATISTICAL yt tt ae CIF IMPLEMENTED 
BY THE DIAGNOSTIC - SECTION 4.0) 
DISPLAY TYPE A LIST OF ALL DEVICE INFORMATION 
FLAGS TYPE THE STATE OF ALL FLAGS (SEE SECTION 2.3) 
ZFLAGS CLEAR ALL FLAGS (SEE SECTION 2.5) 
A COMMAND CAN BE RECOGNIZED BY THE FIRST THREE ee so 


YOU MAY, FOR EXAMPLE, TYPE “STA” INSTEAD OF “STAR 


S€9 Oo 
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2.1.1 OPERATOR COMMANDS 


THE TSVOS DIAGNOSTIC IS A PDP-11/23 DIAGNOSTIC SUPERVISOR Mo ge hg 
PROGRAM ALL LOADING AND RUNTIME INSTRUCTIONS CAN BE REFERENCED IN T 


CHQUS XXDP+ USERS GUIDE,DOCUMENT NUMBER AC-F348E-MC. THE USER ENTRY Ts IN QUOTES. 


BOOT THE DIAGNOSTIC MEDIA 


.R VTS8?? 

DIAG. RUN-TIME SERVICES REV D. APR 79 
CVTSB-A-0 

#eeeTSVOS LOGIC DIAGNOSTICesees 

UNIT IS TSVOS 


>DR 
2.2 SWITCHES 


THERE ARE SEVERAL SWITCHES WHICH ARE USED TO MODIFY SUPERVISOR OPERATION. 
THESE SWITCHES ARE APPENDED TO THE LEGAL COMMANDS. ALL OF THE LEGAL 
SWITCHES ARE TABULATED BELOW WITH A BRIEF DESCRIPTION OF EACH. 

IN THE DESCRIPTIONS BELOW, A DECIMAL NUMBER IS DESIGNATED BY “DDDDD". 


SWITCH EFFECT 
/TESTS:LIST EXECUTE ONLY THOSE TESTS SPECIFIED IN 
THE LIST. LIST IS A STRING OF TEST 
» FOR EXAMPLE - 


BE RUN. ALL ‘ 
/PASS : 00000 EXECUTE DDDDD PASSES (DODDD = 1 TO 64000) 
/FLAGS :FLGS SET a be FLAGS. FLAGS ARE DESCRIBED 


3. 
/EOP : 00000 REPORT END OF PASS MESSAGE AFTER EVERY 
DDDDD PASSES ONLY. (DODDD = 1 TO 64000) 
/UNITS:LIST TEST/ADD/DOROP ONLY THOSE UNITS SPECIFIED 
IN THE LIST. LIST EXAMPLE - /UNITS:0:5:10-12 
USE UNITS 0,5,10,11,12 CUNIT NUMBERS = 0-63) 


EXAMPLE OF SWITCH USAGE: 
START/TESTS: 1-S/PASS: 1000/E0P : 100 


THE EFFECT OF THIS COMMAND WILL BE: 1) TESTS 1 THROUGH 5 WILL BE 
EXECUTED, 2) ALL UNITS WILL TESTED 1000 TIMES AND 3) THE END OF 
PASS MESSAGES WILL BE PRINTED AFTER EACH 100 PASSES ONLY. A 
SWITCH CAN BE RECOGNIZED BY THE FIRST THREE CHARACTERS. YOU MAY, 
FOR EXAMPLE, TYPE “/TES:1-S” INSTEAD OF “/TESTS:1-5". 


SEQ 0005 


(5 ] 
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BELOW IS A TABLE THAT SPECIFIES WHICH SWITCHES CAN BE USED BY EACH 
COMMAND . 


TESTS PASS FLAGS EOP UNITS 


START x x x x x 

RESTART x x x x x 

CONTINUE x x x 

PROCEED x 

DROP x 

ADO x 

PRINT 

DISPLAY Xx 

FLAGS 

ZFLAGS 

EXIT 

2.3 FLAGS 

FLAGS ARE USED TO a A UP CERTAIN OPERATIONAL PARAMETERS SUCH AS 
LOOPING ON ERROR. ALL FLAGS ARE CLEARED AT STARTUP AND REMAIN 
CLEARED UNTIL ag? 2A SET “Pe THE FLAGS SWITCH. FLAGS 
ARE ALSO CLEARED AF A START COMMAND UNLESS SET USING THE 


FLAG SWITCH. THE TFLAGS. COPPIAND HAY ALSO BE USED 10 CLEAR 

ALL FLAGS. WITH THE EXCEPTION OF THE START AND ZFLAGS COMMANDS, 
NO COMMANDS AFFECT THE STATE OF THE FLAGS; THEY REMAIN SET OR 
CLEARED AS SPECIFIED BY THE LAST FLAG SWITCH. 


FLAG EFFECT 
HOE HALT ON ERROR - CONTROL IS RETURNED TO 
RUNTIME SERVICES COMMAND MODE 
LOE LOOP ON ERROR 
IERs INHIBIT ALL ERROR REPORTS 
IBRs INHIBIT ALL ERROR REPORTS EXCEPT 
FIRST LEVEL (FIRST LEVEL CONTAINS 
ERROR TYPE, NUMBER, TEST AND UNIT) 
IXE* INHIBIT EXTENDED ERROR REPORTS (THOSE 
CALLED BY PRINTX MACKO'S) 
PRI DIRECT MESSAGES TO LINE PRINTER 
PNT PRINT TEST NUMBER AS TEST EXECUTES 
BOE “BELL” ON ERROR 
VAM UNATTENDED MODE (NO MANUAL INTERVENTION) 
ISR INHIBIT STATISTICAL REPORTS (DOES NOT 


APPLY TO DIAGNOSTICS WHICH DO NOT SUPPORT 
STATISTICAL REPORTING) 


IOR INHIBIT PROGRAM DROPPING OF UNITS 
AOR EXECUTE AUTODROP CODE 
LOT LOOP ON TEST 


*ERROR MESSAGES ARE DESCRIBED IN SECTION 3.1 


a ee ee ee — + 
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SEE THE XXDP+ USER'S MANUAL FOR MORE DETAILS ON FLAGS. YOU MAY 
SPECIFY MORE THAN ONE FLAG WITH THE FLAG SWITCH. FOR EXAMPLE, 
TO CAUSE THE PROGRAM TO LOOP ON ERROR, INHIBIT ERROR REPORTS 
AND TYPE A “BELL” ON ERROR, YOU MAY USE THE FOLLOWING STRING: 


/FLAGS :LOE: IER: BOE 


2.4 HARDWARE QUESTIONS 
WHEN A DIAGNOSTIC IS STARTED, THE RUNTIME SERVICES —y PROMPT 
USER FOR HARDWARE "CHANGE HW (L) 


MANUAL). WHEN YOU HIS 
QUESTION WITH A “Y", THE RUNTIME SERVICES WILL ASK FOR THE NUMBER 
OF UNITS CIN DECIMAL). 


AFTER INITIAL STARTING OF THE PROGRAM Be gee gee 2 TO THE OIZAGNOSTIC 
speed ISOR), THE PROGRAM WILL ISSUE THE “CHANGE HW?” QUESTION TO ASK IF 
HE HARDWARE PARAMETERS ARE TO BE CHANGED (BY THE OPERATOR). 


ON A “N” (NO) RESPONSE TO THE “CHANGE HW?" QUESTION, THE DIAGNOSTIC WILL 
RUN USING THE DEFAULT VALUES FOR ALL QUESTIONS. THE DEFAULT ADORESS AND VECTOR ARE: 


TSBA/TSOB = 172520, VECTOR = 224 


ON A “Y" (YES) RESPONSE TO THE QUESTION, THE FOLLOWING QUESTIONS WILL 

THEN BE ASKED TO ALLOW THE OPERATOR TO SELECT THE UNITS TO SE TESTED. A 
VALUE, IF PRESENT, LOCATED TO THE LEFT . THE QUESTION MARK IS THE 
DEF AULT vor ¥ THAT WILL BE TAKEN IF ONLY A CARRIAGE RETURN IS TYPED AS A 
RESPONSE . ee" IN A QUESTION INDICATES THAT A DECIMAL NUMBER IS 
REQUIRED -—" RESPONSE. AN “(0)” INDICATES AN OCTAL NUMBER IS BEING 
SOLICITED. Prarie INDICATES THAT A LOGICAL RESPONSE IS TO BE MADE: 
“Y" FOR YES, “N” FOR NO. 


@ UNITS (0) ? <ENTER THE NUMBER OF M7196 CONTROLLERS 
PRESENT TO BE TESTED> 


UNIT O 


DEVICE ADDRESS (0) 172520 ? <ENTER THE ADDRESS OF THE 
TSBA/TSOB REGISTER> 


VECTOR (0) 224 ? <ENTER ADDRESS OF INTERRUPT 
VECTOR> 


THE ADDRESS AND VECTOR QUESTIONS WILL BE ASKED FOR EACH OF THE NUMBER OF 
UNITS (CONTROLLERS) SPECIFIED IN THE “@ UNITS?” QUESTION. LOGICAL UNIT 
NUMBERS ARE ASSIGNED IW ORDER, BEGINNING AT 0. UP TO FOUR UNITS CAN BE 
SELECTED FOR TESTING AS FOLLOWS: 

UP TO 4 TSVOS CONTROLLERS PER 11/23 AND UP TO 2 DRIVES PER CONTROLLER 
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2.5 SOFTWARE QUESTIONS 


AFTER YOU HAVE ANSWERED THE HARDWARE QUESTIONS OR AFTER A RESTART 
OR CONTINUE COMMAND, THE RUNTIME SERVICES WILL ASK FOR SOFTWARE 
PARAMETERS. THESE PARAMETERS WILL GOVERN SOME DIAGNOSTIC SPECIFIC 
OPERATION MODES. YOU WILL m. PROMPTED BY “CHANGE SW (L) ?” 

IF SH TO CHANGE ARAME 


ING 
“Y", THE SOFTWARE QUESTIONS AND THE DEFAULT VALUES ARE DESCRIBED 
IN THE NEXT PARAGRAPH(S). 


THE FOLLOWING QUESTIONS ARE ASKED ON A_ START, RESTART, OR CONTINUE. 


THEY ALLOW FLEXIBILITY IN THE WAY THE PROGRAM BEHAVES. 


CHANGE SW (L) ? <TYPE Y TO CAUSE THE FOLLOWING 
QUESTIONS TO BE ASKED> 


INHIBIT ITERATIONS (L) N ? <TYPE “Y” TO PREVENT MULTIPLE 
ITERATIONS OF CERTAIN TESTS. 


ITERATIONS. > 
2.6 EXTENDED P-TABLE DIALOGUE 


WHEN YOU ANSWER THE HARDWARE QUESTIONS, YOU ARE BUILDING ENTRIES 
IN A TABLE THAT DESCRIBES THE DEVICES UNDER TEST. THE SIMPLEST 


UNIT TO BE TESTED. IF YOU HAVE A MULTIPLEXED DEVICE SUCH AS 

A MASS STORAGE CONTROLLER WITH SEVERAL DRIVES OR A COMMUNICATION 
DEVICE WITH SEVERAL LINES, THIS BECOMES TEDIOUS SINCE MOST OF 
THE ANSWERS ARE REPETITIOUS. 
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ig ILLUSTRATE A MORE EFFICIENT METHOD, SUPPOSE b= - TESTING 
DEVICE, THE XY11. SUPPOSE THIS DEVICE CONSISTS 
A CONTROL MODULE WITH EIGHT UNITS (SUB-DEVICES) ATTACHED TO IT. 
THESE UNITS ARE rae BY THE OCTAL NUMBERS O THROUGH 7. THERE 
IS ONE AMETER THAT CAN VARY AMONG UNITS CALLED THE 
Q-FACTOR. THIS Q@ Q-FACTOR MAY BE 0 OR 1. BELOW IS A SIMPLE WAY 
TO BUILD A TABLE FOR ONE XY11 WITH EIGHT UNITS. 


@ UNITS (0) ? 8<CR> 


UNIT 1 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE @ (0) 7 O<CR> 
Q-FACTOR (0) 0 ? 1<CR> 


UNIT 2 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE @ "s ? 1<CR> 
Q-FACTOR (0) 1 0<CR> 


UNIT 3 

CSR a wt gh (0) ? 160000<CR> 
SUB-DEVICE @ (0) ? 2<CR> 
Q-FACTOR (0) 0 ? <CR> 


UNIT 4 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE @ (0) ? 3<CR> 
Q-FACTOR (0) 0 ? <CR> 


UNIT 5 

CSR ADORESS (0) ? 160000<CR> 
SUB-DEVICE @ (CG) ? 4<CR> 
Q-FACTOR (0) 0 ? <CR> 


UNIT 6 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE @ (0) ? 5<CR> 
Q-FACTOR (0) 0 ? <CR> 


UNIT 7 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE @ (0) ? 6<CR> 
Q-FACTOR (0) 0 ? 1<CR> 


UNIT 8 

CSR ADDRESS (0) 160000<CR> 
SUB-DEVICE @ (0) ? 7<CR> 
Q-FACTOR (0) 1 ? <CR> 


NOTICE THAT THE DEFAULT VALUE FOR THE Q-FACTOR CHANGES WHEN A 
NON-DEFAULT RESPONSE IS GIVEN. BE CAREFUL WHEN SPECIFYING 
MULTIPLE UNITS! 


AS YOU CAN SEE FROM THE ABOVE EXAMPLE, THE HARDWARE PARAMETERS 
DO NOT VARY SIGNIFICANTLY FROM UNIT TO UNIT. THE PROCEDURE SHOWN IS 
NOT VERY EFFICIENT. 


SEQ 0009 
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THE RUNTIME SERVICES CAN TAKE MULTIPLE UNIT SPECIFICATIONS HOWEVER. 


amr THE SAME TABLE USING THE MULTIPLE SPECIFICATION 


@ UNITS (D) 2? 8<CR> 


CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE @ (0) ? 0,1<CR> 
Q-FACTOR (0) 0 ? 1,0<CR> 


UNIT 3 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE @ C0)" ? 2-S<CR> 
Q-FACTOR (0) 0 ? O<CR> 


UNIT 7 

CSR ADORESS (0) ? 160000<CR> 
SUB-DEVICE #@ (0) ? 6,7<CR> 
Q-FACTOR (0) 0 ? 1<CR> 


BUILT SINCE TWO SUB-DEVICES AND Q-FACTORS WERE SPECIFIED. THE 
CES ASSUME THAT THE CSR ADDRESS IS 160000 FOR BOTH SINCE IT 


EO. 
“-" CONSTRUCT TELLS THE RUNTIME SERVICES TO INCREMENT THE DATA 
F THE SECOND. IN S CA 


FROM THE FIRST NUMBER TO ; THIS CASE, SUB-DEVICES 
2. 3. 4 AND S WERE SPECIFIED. (CIF THE SUB-DEVICE WERE SPECIFIED 
BY ADDRESSES, THE BE BY 2 SINCE ADDRESSES MUST 


Y INCREMENT 
BE ON AN EVEN BOUNDARY.) THE CSR ADDRESSES AND Q-FACTORS FOR 
THE FOUR ENTRIES ARE ASSUMED TO BE 160000 AND 0 RESPECTIVELY 

SINCE THEY WERE ONLY SPECIFIED ONCE. THE LAST TWO UNITS ARE 

SPECIFIED IN THE THIRD PASS. 


THE WHOLE PROCESS COULD HAVE BEEN ACCOMPLISHED IN ONE PASS AS 
SHOWN BELOW. 


@ UNITS (0) ? 8&<CR> 

UNIT 1 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE @ (0) ? 0-7<CR> 
Q-FACTOR (0) 0 ? 0,1,.0,...1,1<CR> 


AS YOU CAN SEE FROM THIS EXAMPLE, NULL REPLIES (COMMAS ENCLOSING 
A NULL FIELD) TELL THE RUNTIME SERVICES TO REPEAT THE LAST REPLY. 


SEQ 0010 
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2.7 QUICK START-UP PROCEDURE (XXDP-) 
TO START-UP THIS PROGRAM: 
1. BOOT XXDP-+ 


| 
2. GIVE THE DATE AND ANSWER THE LSI AND SOHZ CIF THERE 
IS A CLOCK) QUESTIONS 

| 


3. TYPE “R NAME”, WHERE NAME IS THE NAME OF THE BIN OR BIC 
FILE FOR THIS PROGRAM 


4. TYPE “START” 

5S. ANSWER THE “CHANGE HW” QUESTION WITH “Y” 
6. ANSWER ALL THE HARDWARE QUESTIONS 

7. ANSWER THL “CHANGE SW” QUESTION WITH “N” 


WHEN YOU FOLLOW THIS PROCEDURE YOU WILL BE USING ONLY THE 
DEFAULTS FOR FLAGS AND SOFTWARE PARAMETERS. THESE DEFAULTS 
ARE DESCRIBED IN SECTIONS 2.5 AND 2.5. 


3.0 ERROR INFORMATION 
3.1 TYPES OF ERROR MESSAGES 


THERE ARE THREE LEVELS OF ERROR MESSAGES THAT MAY BE ISSUED BY 

A DIAGNOSTIC: GENERAL, BASIC AND EXTENDED. GENERAL ERROR MESSAGES 
ARE ALWAYS PRINTED UNLESS THE “IER” FLAG IS SET (SECTION 2.3). 

THE GENERAL ERROR MESSAGE IS OF THE FORM: 


NAME TYPE NUMBER ON UNIT NUMBER TST NUMBER PC: XXXXXX 
ERROR MESSAGE 


» WHERE; NAME = DIAGNOSTIC NAME 
TYPE = ERROR TYPE (SYS FATAL, DEV FATAL, HARD OR SOFT) 


UNIT NUMBER = 0 - N CN IS LAST UNIT IN PTABLE) 
TST NUMBER = TEST AND SUBTEST WHERE ERROR OCCURRED 
PC: XXXXXX © ADDRESS OF ERROR MESSAGE CALL 


BASIC EPROR MESSAGES ARE MESSAGES THAT CONTAIN SOME ADDITIONAL 
INFORMATION ABOUT THE ERROR. THESE ARE ALWAYS PRINTED UNLESS 
THE “IER” OR “IBR“ FLAGS ARE SET (SECTION 2.3). THESE MESSAGES 
ARE PRINTED AFTER THE ASSOCIATED GENERAL MESSAGE. 


EXTENDED ERROR MESSAGES CONTAIN SUPPLEMENTARY ERROR py ae 

SUCH AS REGISTER CONTENTS OR GOOD/BAD DATA. THESE ARE ALWA 

PRINTED UNLESS THE “IER”, “IBR” OR “IXR”“ FLAGS ARE SET CSECTION 2.3). 
THESE MESSAGES ARE PRINTED AFTER THE ASSOCIATED GENERAL ERROR 
MESSAGE AND ANY ASSOCIATED BASIC ERROR MESSAGES. 
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3.2 SPECIFIC ERROR MESSAGES 


BELOW ARE SAMPLE ERROR MESSAGES. EACH ERROR MESSAGE REPRESENTS DIFFERENT TYPES 
OF ERRORS DETECTED BY THIS DIAGNOSTIC. 


ERROR MESSAGE EXAMPLE 1 


THIS ERROR IS INDICATIVE OF AN INCORRECT REGISTER OR STATUS WORD RETURNED 

TO THE DIAGNOSTIC. THE FIRST PART DEFINES THE TEST FUNCTION AND UNIT THAT FAILED. 
THE SECOND PART PRIOVIDES THE REGISTER BITS AND THEIR MNEMONICS FOR THE 

oo hae REGISTER OR STATUS WORDS. THE THIRD PART IS THE EXPECTED AND RECEIVED 


TST: 016 FIFO EXERCISER TEST 
“ht MA Bk AG. RR gt 
FIFO STATUS CIN WORD 9) INCORRECT AFTER WRITE FIFO 


TAPE BUS SIGNALS IN WORD 66: - DESIGNATOR <BIT @ 
PARERR<15> IEOT <i2> IFMK <9> IRDY<6> IRWD<2> 
IRESV2<14> IIDENT<11> IHER <6> IOM<5> IFBY<1> 
IRESV1<13> ICER <10> ISPEED<7> ILDP<4> IFPT<O> 

APE SIGINAL WORD 09: 


T S IN ed 
DATMIS<7> ILwW<6> OUTRDY<S> INRDY<4> 

BUFFER ADDRESS = 04 
MESSAGE BUFFER CONTENTS: 
WORD @0 EXPD: 100020 RECV: 100020 XOR: 000000 
WORD #1 EXPD: 000012 RECV: 000012 XOR: 000000 
WORD #2 EXPD: 000000 RECV: 000000 XOR: 000000 
WORD #3 EXPD: 000010 RECV: 000010 xXOR: 000000 
WORD #4 EXPD: GO0000 RECV: 000000 xXOR: 000000 
WORD #5 EXPD: 000000 RECV: 000000 xXOR: 000000 
WORL #6 EXPD: 000000 RECV: 000000 xXOR: 000000 
WORD #7 EXPD: 000000 RECV: 000000 xXOR: 000000 
WORD #6 EXPD: 070217 RECV: 070217 XOR: 000000 
WORD #9 EXPD: 000074 RECV: 000034 XOR: 000040 


ERROR MESSAGE EXAMPLE 2 


THIS ERROR SHOWS A FATAL FUNCTION ERROR FROM THE TAPE DRIVE.IN THIS 
INSTANCE A UNRECOVERABLE ERROR OCCURED WHICH INDICATES THAT THE CONTROLLER 


SSR 
CLASS CODE = UNRECOVERABLE ERROR 
026420 


PACKET WORD @ = 140010 
PACKET WORD @ = 000010 
PACKET WORD @ = 000000 

= 000024 
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ERROR MESSAGE EXAMPLE 5 


THIS ERROR SHOWS THAT THE MOTION BIT DID NOT GET SET WHILE DOING A REWING 
WITH EXTENDED FEATURES MODE ENABLED. 


CVTSB HRD ERR 00121 ON UNIT OO TST 001 SUB 002 FC: 025506 
MOT BIT (XSTO) NOT SET DURING REWIND (EXTENDED FEATURES MODE) 
EXPD: 000312 RECV: 000112 KOR: 000200 


4.0 PERFORMANCE AND PROGRESS REPORTS 


AT THE END OF EACH PASS, THE PASS COUNT IS GIVEN ALONG WITH THE 
TOTAL NUMBEA OF ERRORS REPORTED SINCE THE DIAGNOSTIC WAS STARTED. 
THE “EOP” SWITCH CAN BE USED TO CONTROL HOW OFTEN THE END 

OF PASS MESSAGE IS PRINTED. SECTION 2.2 VESCRIBES SWITCHES. 


SUCCESSFUL RUN EXAMPLE (PDP-11/23) 
OR>STA/FLA: PN] : HOE : UAM 

UNITS (D) ? 1 

UNIT 0 

CEVICE ADDRESS (0) 172520 ? <CR> 
VECTOR (0) 224 ? <CR> 

CHANGE SW (L) ? N«CR> 


THE ABOVE COMMAND WILL START THE OIAGNOSTIC. THE COMMAND HAS THREE 
SWITCHES ON WHICH ARE “PRINT EACH TEST NBR AS EXECUTED” . “HALT ON 
ERROR” AND “RUN IN UNATTENDED MODE”. 


NOTE: THE UAM FLAG SHOULD BE USED TO PREVENT TEST 10-12 FROM BEING 
EXECUTED UNLESS THE OPERATOR WANTS THESE SPECIFIC TEST. 


TST: 001 INITIALIZE @3 TEST 
TST: 002 BASIC WRITE SUBSYSTEM MEMORY TEST 
TST: 003 = MEMORY ADDRESSING TEST 


: 004 RAM EXERCISER TEST 
TST: OOS FIFO EXERCISER TEST 
TST: 006 STATIC TRANSPORT BUS CHECK 
TST: 007 TRANSPORT BUS INTERFACE CHECK VIA LOOPBACK TEST 
TST: 008 READ/WRITE DATA PARITY CHECK TEST 
TST: 009 MISCELLANEOUS LOGIC CHECKS TEST 
TST: 010 STAND-ALONE MANUAL INTERVENTION NOT EXECUTED TEST 
TST: 011 STAND-ALONE CONFIGURATION TYPEOUT NOT EXECUTED TEST 
TST: O12 STAND-ALONE SCOPE LOOPS NOT EXECUTED TEST 


SEQ 0013 
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NOTE: TME DIAGNOSTIC WILL RUN CONTINUOUSLY UNLESS A PASS LIMIT HAS BEEN 
SPECIFIED WITH THE “/PASS:* SWITCH. 


PROGRAM RUN TIMES 


a AVERAGE RUN —" OF THE PROGRAM ARE LISTED BELOW. THESE FIGURES ARE 
BE USED AS GUIDE. THE TIMING WAS DONE ON A POP-11/23 
PROCESSOR WITH A LA 34 CONSOLE. 


THE PROGRAM RUNS IN TWO MODES; NO ITERATIONS AND DEFAULT MODE. IN THE 
NO ITERATIONS MODE, EACH TEST IS RUN ONCE, WITH NO ITERATIONS. IN THE 
DEFAULT MODE EACH TEST IS ar BY THE NUMBER OF TIMES INDICATED BY 
THE ITERATION COUNT. NO ITERATIONS MODE IS SELECTED BY ANSWERING THE 
INHIBIT ITERATIONS QUESTION WITH A “Y” (YES). 


TEST N/I ITER DEF 
NUMBER SECS. SECS SECS. 

1 15 50 35 
2 1 6 5 
3 1 1 0 
& 110 540 430 
be) 1 10 9 
6 10 120 110 
7 1 3 2 
8 15 15 12 
9 17 17 13 


THE TIMES REQUIRED TO RUN TESTS 1 THROUGH 9 IN ONE COMMAND: 


Q.v. 2 MINS 19 SECONDS 
DEFAULT 11 MINS 35 SECONDS 


SEQ 0014 


EE [sss ee eee 
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5.0 DEVICE INFORMATION TABLES 
WHENEVER THE PROGRAM IS STARTED, VIA THE STACRT) COMMAND, 
THE SUPERVISOR REQUESTS THE FOLLOWING P-TABLES PARAMETER 
CHANGE S : 

CHANGE HW (L) ? 


@ UNITS (0) ? <ENTER THE NUMBER OF M7196 CONTROLLERS 
PRESENT TO BE TESTED> 


UNIT © 


DEVICE ADDRESS (0) 172520 ? <ENTER THE ADDRESS OF THE 
TSBA/TSOB REGISTER> 


VECTOR (0) 224 ? <ENTER ADDRESS OF INTERRUPT 
VECTOR> 


THE ADORESS AND VECTOR QUESTIONS WILL BE ASKED FOR EACH OF THE NUMBER OF 
UNITS (CONTROLLERS) SPECIFIED IN THE “@ UNITS?” QUESTION. LOGICAL UNIT 
NUMBERS ARE ASSIGNED IN ORDER, BEGINNING AT 0. UP TO FOUR UNITS CAN BE 
SELECTED FOR TESTING. 


IN ADDITION, ON A START, RESTART OR CONTINUE THE SUPERVISOR 
~ pg he CHANGES TO THE SOFTWARE OPERATING PARAMETERS, AS 
L 3 


CHANGE SW (L) ? 


SEQ 0015 


LS s-seb »>steteete-e 


USER DOCUMENTATION 


TEST 1: 


TEST 2: 


TEST 3: 


TEST 4: 


TEST 5: 





De 
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6.0 TEST SUMMARIES 

INITIALIZE AFTER WRITE CHARACTERISTICS 

TEST DESCRIPTION: 

THIS TEST i THAT A HARDWARE INITIALIZE COMMAND 

INVOKED AFTER A WRITE CHARACTERISTICS COMMAND SETS UP 

THE COMMAND, MESSAGE AND i IMAGE BLOCKS 

IN THE CONTROLLER RAM CORRECT 
BASIC WRITE SUBSYSTEM MEMORY COMMAND 

THIS TEST VERIFIES THAT THE S aneee con MEMORY TT ALSO WITH A 
VERIFIES THAT A WRITE SUBSYSTEM MEMORY COMMAND WITH A NON-ZERO 
MODE FIELD IS REJECTED. THE TEST FURTHER VERIFIES MICROPROGRAM 
DECODING AND HANDLING SEQUENCES. 
OMA MEMORY ADDRESSING 


THIS TEST yg ey THAT THE CONTROLLER CAN PROPERLY ADDRESS AND 
ACCESS ALL AVAILABLE CPU MEMORY (OTHER THAN THAT OCCUPIED BY THE 


SOSOESEESSEESSESSEESEESSESEEEERERESEEOEEESHEEEEOESS BEEEEseeesoeees 
AUTION 


THE LSI no ORIVERS FOR ALL AVAILABLE ADORESS LINES 
ARE ONLY CHECKED WHEN RUNNING ON A 11/238 SYSTEM WITH MORE THAN 
128K WORDS OF MEMORY! 


SESSSSSSESESESESSESESESESEREEEDEDEEEESEEDEEEODEEEEEDESOEEEEEEEEESS 
RAM EXERCISER TEST 

THIS TEST USES THE READ AND WRITE RAM (BOTH SINGLE AND 256 
LOCATIONS) SELECT CODES OF THE WRITE SUBSYSTEM MEMORY COMMAND 

TO EXERCISE THE CONTROLLER'S RAM MEMORY AND DMA LOGIC 

EXTENDED FEATURES SWITCH AND TIMERS A,B 

TEST DESCRIPTION: 

THIS TEST VERIFIES THE INVERT EXTENDED FEATURES FUNCTION 


CAN LOGICALLY INVERT THE EXTENDED FEATURES SWITCH AND 
THAT THE INTERNAL TIMERS A AND 6 OPERATE CORRECTLY. 


USER DOCUMENTATION 


TEST 6: 


TEST 7: 


TEST 8: 


TEST 9: 
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FIFO EXERCISER 
TEST DESCRIPTION: 
THIS TEST USES THE WRITE SUBSYSTEM MEMORY COMMAND TO 
VERIFY THE CONTROLLER'S FIFO AND ASSOCIATED STATUS AND 
CONTROL LOGIC. 
STATIC TRANSPORT BUS INTERFACE TEST 
TEST DESCRIPTION: 
WRITE TO TSSR REGISTER TO SOFT INITIALIZE THE CONTROLLER 
DO WRITE CHARACTERISTICS TO CHECK FOR yh pA FEATURES SWITCH 
IF EXTENDED FEATURES HARDWARE SWITCH CLEAR 
r me fy SUBSYSTEM WRITE MISCELLANEOUS 10. SET EXTENDED FEATURES. 
DO WRITE CHARACTERISTICS TO aha’ RESERVED UNIT 7 


DO A RITE SUBSYSTEM READ STA 
IF ANY TRANSPORT INTERFACE SIGNALS ARE ASSERTED THEN PRINT ERROR 


TRANSPORT BUS INTERFACE LOOPBACK TEST 

TEST DESCRIPTION: 

THIS TEST VERIFIES THE CONTROLLER'S TRANSPORT BUS 
LOOPBACK 


CORRECTLY FOR THIS TEST TO PROVIDE oe" RESULTS. 
READ/WRITE DATA PARITY TEST 

TEST DESCRIPTION: 

aud a VERIFIES THAT THE ioe! Sag oat PARITY ore & 


WRITE SUBSYSTEM MEMORY FUNC 
WRITE DATA yy Fre A Ge 
THE PROGRAM THEN CHECKS T 


USER DOCUMENTATION 


TEST 10: 


TEST 11: 


Fe 
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MANUAL INTERVENTION 


THE MANUAL INTERVENTION TEST IS A STANDALONE ROUTINE (NOT REALLY A "TEST”) 
THAT ALLOWS THE OPERATOR TO CHECK OUT VARIOUS ELEMENTS AND FUNCTIONS OF 
ter SUBSYSTEM ae CANNOT BE MANIPULATED BY THE PROGRAM ALONE. WHEN 


ON CODE. 
THE ONLY WAYS TO EXIT THIS ROUTINE AND RETURN TO THE DIAGNOSTIC SUPERVISOR 
ARE BY TYPING <CTRL-C> OR SELECTING CODE 6. 
SELECTION CODES AND SUBROUTINES ARE: 


ROUTINE 


HELP. PRINTS THIS MENU. 

TURN ON ALL M7196 LED INDICATORS 
TURN OFF ALL M7196 LED INDICATORS 
OF FLINE/ONLINE oe TEST 


WRITE -PROTECT 
PRINT EXTENDED TRANSPORT STATUS 
EXIT (RETURN TO SUPERVISOR) 


: 


Ouawrro 


CONFIGURATION TYPEOUT 


THIS IS A STANDALONE ROUTINE THAT PRINTS OUT ON THE CONSGLE TERMINAL 
THE CONFIGURATION OF THE M7196 MODULE AND TSVOS SUBSYSTEM. SPECIFICALLY, 
THE FOLLOWING INFORMATION IS PRESENTED: 


1.0 STATE OF THE EXTENDED FEATURES SWITCH ON THE M7196: ON (EXTENDED 
FEATURES ENABLED) OR OFF CEXTENDED FEATURES DISABLED), 


2.0 STATE OF THE BUFFERING ENABLE SWITCH ON THE M7196: ON 
(BUFFERING ENABLED) OR OFF (BUFFERING DISABLED), 


3.0 MICROCODE REVSION LEVEL OF THE M7196, 

4.0 NUMBER OF TAPE TRANSPORTS CONNECTED TO THE CONTROLLER, 

5.0 UNIT SELECT CODE AND STATE (CONLINE/OFFLINE, WRITE ENABLED/PROTECTED) 
OF <ACH TED TRANSPORT. IN ADDITION, THE PROGRAM WILL INDICATE, 


CONNEC 
FOR EACH ON-LINE TRANSPORT, WHETHER OR NOT IT IS EQUIPPED WITH THE 
EXTENDED TAPE STATUS READOUT FEATURE. 


SEQ 0018 


G2: 
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TEST 12: SCOPE LOOPS 


THIS IS A STANDALONE ROUTINE PROVIDING A NUMBER OF TIGHT “SCOPE 

LOOPS” USEFUL FOR DEBUGGING BASIC REGISTER ACCESS PROBLEMS WITH 
THE M7196 MODULE. THESE SCOPE LOOPS CAN BE USED WHEN THE NORMAL 
“LOOP ON ERROR” OR “LOOP ON TEST (SUBTEST)” FACILITIES DON'T 
SEEM TO ALLOW THE OPERATOR TO ZERO IN A PROBLEM IN THE EARLY 
TESTS (I.E, THE HARDWARE MAY NOT BE RESPONDING TO A REGISTER 
ACCESS, CAUS THE 


HARDWARE DIP SWITCHES). THE FOLLOWING MENU OF SCOPE LOOPS ARE 
AVAILABLE : 


CODE SCOPE LOOP 


HELP. PRINT THIS MENU. 

TSBA READ ACCESS 

TSSR_READ ACCESS 

INITIALIZE (TSSR WRITE ACCESS) 

TSOB HIGH BYTE WRITE ACCESS 

TSOB LOW BYTE WRITE ACCESS 

TSOB MAINTENANCE - WORD WRITE ACCESS 

TSOBX CTSSR HIGH BYTE) WRITE ACCESS 
CEXTENDED FEATURES SWITCH MUST BE ON 

TO USE SELECTION CODE 7) 
8 EXIT CRETURN TO SUPERVISOR) 


FOR SCOPE LOOPS THAT WRITE INTO REGISTERS, THE PROGRAM PROMPTS 
THE OPERATOR FOR THE DATA TO BE WRITTEN,LIMITS ON THE DATA PATTENS 
ARE 0-377, TYPING <RETURN> CAUSES AN EXIT FROM THE SCOPE LOOP BACK TO MENU LEVEL. 


NOU Suro 


7.0 MAINTENANCE HISTORY 


REVISION B - APRIL 1983 


MODIFIED eo een ie TO HANDLE 11/23A'S 
WITH MORE THAN 256KB OF MEMORY. CHANGED 
TEST 3 SUBTEST 3 SO IT WON'T TRY TO CREATE 
NON-EXISTANT MEMORY ADDRESS (NXM). 


REVISION C - JUNE 1984 


MINOR CHANGES FOR “ORION” CPU 
ELIMINATED CPU TYPE IDENTIFICATION MESSAGE. 


| 
} 
REVISION A - MARCH 1982 


He 
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2 .TITLE TSV2 - PROGRAM HEADER 
3 “SBTTL PROGRAM HEADER 
4 
10 -MCALL SVC 
11 000000 Svc : INITIALIZE SUPERVISOR MACROS 
12 -ENABLE LC 
13 -NLIST BEX,CNOD 
19 000000 -ENABL ABS,AMA 
20 002000 . #2000 
21 002000 TSV2 
002000 TSVe:: 
22 
| 23 see 
| 24 ; THE PROGRAM HEADER IS THE INTERFACE BETWEEN 
4 3: THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR. 
| oe 
27 
28 002000 POINTER BGNSW,BGNSF T ,BGNAU,BGNDU, BGNRPT 
29 002000 HEADER CVTSB,C,O, 655. 0 
002000 LSNAME:: ;OIAGNOSTIC NAME 
002000 103 -ASCII /C 
002001 1 -ASCII /v/ 
002002 124 ~ASCII /T/ 
002005 123 -ASCII /S/ 
002004 102 -ASCII /B6/ 
002005 000 .BYTE 0 
002006 000 .BYTE 0 
002007 000 .BYTE 0 
002010 LSREV: sREVISION LEVEL 
002010 103 -ASCII /C/ 
002011 L$DEPO 30 
002011 060 -ASCII /0/ 
002012 LSUNIT sNUMBER OF UNITS 
002012 000000 0 
002014 LSTIML: sLONGEST TEST TIME 
002014 001217 -WORD 655. 
002016 LSHPCP: : sPOINTER TO H.W. QUES. 
002016 101322 . WORD L$HARD 
002020 LSSPCP:: sPOINTER TO S.W. QUES. 
002020 101454 . WORD L¢SOFT 
002022 LSHPTP:: sPTR. TO DEF. H.W. PTABLE 
002022 002156 -WORD L&HW 
002024 L¢SPTP sPTR. TO S.W. PTABLE 
002024 002166 . WORD L$SW 
002026 L¢LADP: : sDIAG. END ADDRESS 
| 002026 102004 . WORD LSLAST 
| 002030 LSSTA:: sRESERVED FOR APT STATS 
002030 000000 . WORD 0 
002032 L$Co:: 
| 002032 000000 .WORD 0 
002034 LSOTYP:: sOIAGNOSTIC TYPE 
j 002034 000000 WORD 0 
| 002036 LSAPT:: 3APT EXPANSION 
002036 000000 . WORD 
002040 LSOTP:: sPTR. TO DISPATCH TABLE 
002040 002124 . WORD L¢DISPATCH 
002042 L$PRIO:: 





sDIAGNOSTIC RUN PRIORITY 


002042 


000000 


003 
003 
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PROGRAM HEADER 


LSENVI:: 
LSEXP1:: 


LSEXP4::. 
LSEXPS:: 


§§5555552555555585 


LSDUT:: 
LS$LUN: : 
LSDESP:: 
LSLOAD: : 
LSETP:: 
LSICP:: 
LSCCP:: 
LSACP:: 
L$PRT:: 
LSTEST:: 
LSDLY:: 
LSHIME: : 


0 
9 sFLAGS DESCRIBE HOW IT WAS SETUP 
P sEXPANSION WORD 
sSVC REV AND EDIT o 
CsREVISION 
CsEDIT 
sDIAG. EVENT FLAGS 
0 
; POINTER TO DEVICE TYPE LIST 
LSDVTYP 
;PTR. TO REPORT CODE 
L$RPT 
0 
0 
sPTR. TO ADD UNIT CODE 
L$AU 
sa sPTR. TO DROP UNIT CODE 
5 3LUN FOR EXERCISERS TO FILL 
sPOINTER TO DIAG. DESCRIPTION 
LSDESC 
sGENERATE SPECIAL AUTOLOAD EMT 
E$LOAD 
. sPOINTER TO ERRTBL 
3PTR. TO INIT CODE 
LSINIT 
;PTR. TO CLEAN-UP CODE 
L$CLEAN 
3PTR. TO AUTO CODE 
L$AUTO 
sPTR. TO PROTECT TABLE 
L$PROT 
- ;TEST NUMBER 
‘ ;DELAY COUNT 
;PTR. TO HIGH MEM 
0 





SEQ 0021 


AM HEADER 


TSV2 - PROGR 
_ DISPATCH TABLE 
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-SBTTL DISPATCH TABLE 


++ 
; THE DISPATCH TABLE CONTAINS THE STARTING ADDRESS OF EACH TEST. 


; IT IS USED BY THE SUPERVISOR TO DISPATCH TO EACH TEST. 
— 


DISPATCH 12 
LSDISPATCH: : 


PEEEEEEEEEE 


SEQ 0022 


- PROGRAM HEADER 


Tsve2 
DEFAULT HARDWARE P - 


000003 


172520 
000224 
000200 


TABLE 
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Ke 


SEQ 0023 


.SBTTL DEFAULT HARDWARE P-TABLE 


*¢ 

; THE DEFAULT HARDWARE P-TABLE CONTAINS DEFAULT VALUES OF 
; THE TEST-DEVICE PARAMETERS. THE STRUCTURE OF THIS TABLE 
; IS IDENTICAL TO THE STRUCTURE OF THE RUN-TIME P-TABLE. 


L$HW: 
OFPTBL : 


BGNHW 
. WORD 


DF PTBL sDEFAULT HARD-P-TABLE 
L10000 -L $HW/2 

172520 ; 1ST (OF 2) REGISTERS. 
224 ; INTERRUPT VECTOR 
PRIO4 ; INTERRUPT PRIORITY. 


Le 
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SOFTWARE P-TABLE | | 
54 .SBTTL SOFTWARE P-TABLE | 
55 
56 see 
57 _ 4 THE SOFTWARE P-TABLE CONTAINS THE VALUES OF THE PROGRAM 
58 ; PARAMETERS THAT CAN BE CHANGED BY THE OPERATOR. 
59 8-- 
60 002164 BGNSW SFPTBL 
002164 000004 .WORD 110001-L$Sw/2 
002166 L$SW:: 
002166 SFPTBL: : 
61 
62 002166 000000 TRANSTST: : .WORD 0 ; ENABLE TEST OF TRANSPORT(S) IF #1 
63 002170 000000 NOITS: : .WORD 0 ; INHIBIT ITERATION OPTION. 
64 ; ... O = ITERATE. 
65 ; ...NZ = INHIBIT ITERATE. 
66 002172 000017 LERRMAX WORD 15. ; LOCAL (PER TEST) ERROR LIMIT 
67 002174 000310 GERRMAX WORD 200. ; GLOBAL (PER UNIT) ERROR LIMIT 
68 002176 ENOSW 
c 002176 L10001 


TSVS - GLOBAL AREAS 
SOFTWARE P-TABLE 
? 
8 
13 
19 
20 002176 
002176 
21 
22 
23 
24 
25 
26 
27 
26 
32 002176 
100000 
040000 
020000 
010000 
004000 
002000 
001000 
000400 
000200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 
001000 
000400 
000200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 
000037 
0000 36 
000035 
000034 
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. TITLE 
. SBTTL 


; ARE USED IN 


EQUALS 


THE GLOBAL EQUATES SECTION 
MORE ONE 


Me 


TSV3 - GLOBAL AREAS 
GLOBAL EQUATES SECTION 


TSv3 


GLOBAL EQUATES SECTION 


THAN 


; GET STANDARD EQUATES. 


; 
s BIT DIFINITIONS 


; 
BITi1S== 100000 


; EVENT FLAG DEFINITIONS 
s €F32:E€F17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION 


i 

EF .START== 

EF .RESTART== 
EF .CONTINUE=< 
EF .NEWe= 

EF .PWRe= 

; 


; 
; PRIORITY LEVEL DEFINITIONS 


a ee - ee ee ee ee ee Ce 


SEQ@ 0025 


CONTAINS PROGRAM EQUATES THAT 
TEST. 


START COMMAND WAS ISSUED 
RESTART COMMAND WAS ISSUED 
CONTINUE COMMAND WAS ISSUED 
A NEW PASS HAS BEEN STARTED 
A POWER-FAIL/POWER-UP OCCURRE 
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GLOBAL EQUATES SECTION , 


; 

000340 PRIO7== 340 

000300 PRIO6=* 300 

000240 PRIOS== 240 

000200 PRIOG== 200 

000140 PRIOS«= 140 ' 

000100 PRIO2== 100 | 

000040 PRIOL== 40 

000000 PRIOO=* 6 
‘ 
;OPERATOR FLAG BITS | 
; 

000004 EVL«= a 

000010 LOT«= 10 

000020 ROR « 20 

000040 IDue« 40 

000100 ISR== 100 

000200 UAMes 

000400 BOE-= 400 

001000 PNTs* 1000 
PRiee 2000 

004000 IxXE«s 4000 

010000 IBE== 10000 

020000 IER== 

040000 LOE«= 40000 

100000 HOE== 100000 


-SBTTL MEMORY MANAGEMENT DEFINITIONS 
—S VECTOR ADDRESS 


000250 
;@KT11 STATUS REGISTER ADDRESSES 
177572 SRO- 177572 
177574 SRi- 177574 
177576 SR2= 177576 
172516 SR3- 172516 


IF 8 
s@USER “I* PAGE DESCRIPTOR REGISTERS 
UIPDRO= 177600 


UIPORi= 177602 
UIPOR2= 177604 
UIPORS= 177606 


UIPDRS= 177612 
UIPOR6= 177614 
UIPOR7T= 177616 


.IF NB 
s*USER “D”“ PAGE DESCRIPTOR REGISTORS 
UDPDRO= 177620 


UDPDR1= 177622 
UDPDR2= 177624 
UDPORS= 177626 
UDPOR4= 177630 
UDPORS= 177632 
UDPOR6= 177634 
UDPOR7= 177636 


| 
33 
34 002176 KT11 ee ;DEF INE MEMORY MANAGEMENT REGISTERS 
-ENOC 


OC 


B3 
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Y MANAGEMENT DEFINITIONS 


s@USER *I” a~ ADDRESS REGISTERS 


SOR 
SOPORO= 172220 


ENDC 
TT “I” PAGE ADDRESS REGISTERS 


| 
| SIPARS= 172252 
| 

NB 


IF 
s@SUPERVISOR “D” PAGE ADDRESS REGISTERS 
SOPARO 
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MEMORY MANAGEMENT DEFINITIONS | 
SDPAR4* 172270 
SOPARS* 172272 | 
SOPAR6* 172274 | 


172316 


SOPAR7* 172276 
- ENOC 


- ENDC 
seKERNEL “I” PAGE DESCRIPTOR REGISTERS 
KIPORO= 172300 


s@KERNEL “D" PAGE 
DESCRIPTOR REGISTERS 
KDPDRO= 172320 
KDPORI= 172322 
KDPDR2= 
KDPORS= 172326 
KDPDR4= 172330 
KDPORS=* 172332 
KDPOR6< 
KDPOR7= 172336 


NB 
seKERNEL “D" PAGE ADDRESS REGISTERS 
KDPARO= 172360 


EEE 


88 000002 xSOBOT= BIT1 sBEGINNING OF TAPE 
89 000001 XSOEOT= BITO sEND OF TAPE 


D a 
ow 
TSV3 - GLOBAL AREAS MACRO M1113 14-JUN-64 15:55 $0 002s 
TSVOS REGISTER AND spACKE DEFINITIONS 
39 .SBTTL TSVOS REGISTER AND PACKET DEFINITIONS 
40 
41 H 
a2 ; SOME GENERAL EQUATES. 
43 3 
44 
4s 000004 ERRVEC== 4 ; POINTER TO ERROR VECTOR FOR BUS TIME OUT. | 
46 000060 TTIVEC#« 60 ; INTERRUPT VECTOR FOR CONSOLE INPUT 
a? 177560 TTICSR== 177560 ; BUS ADDRESS OF CONSOLE I | 
48 177562 TTIBFRe= 177562 s CONSOLE INPUT DATA mUrFER 
a9 177520 BOVPCR== 177520 : BOV11 PAGE CONTROL REGISTER 
50 
51 3° 
52 ;BIT DEFINITIONS FOR TSSR REGISTER 
5 8° 
54 
5s 100000 SC= BIT15 sSPECIAL CONDITION 
56 040000 BIE- BITi4 :BUS INTERFACE ERROR 
57 020000 SCE=  BIT13 sSANITY CHECK ERROR 
58 010000 RMR=  BITI2 sMODIFICATION REFUSED 
59 004000 NXM= SIT11 ;NONEXISTANT MEMORY ERROR 
60 002000 NBA=  — BIT10 :NEED BUFFER ADORESS 
61 001400 HIADOR= BIT9!BITS sEXTENDED ADORESS BITS 
62 000200 SSR=  —s- BIT7 3SUB SYSTEM READY 
| 63 000100 OFL= BIT6 10FF LINE BIT 
64 000060 FATERR= BIT4!BITS ATAL TERMINATION ERROR CODES 
| 65 000016 TERCLS* BIT3!8IT2!81T1 1 TERFLINAT IO CODES 
: ; 
3 
69 ;BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 0 
70 3(XSTO) 
71 3 
" ; 
74 100000 XSOTHK= BIT15 sTAPE MARK GETECTED 
7S 040000 XSORLS* BIT14 sRECORD LENGTH SHORT 
76 020000 XSOLET= BIT13 sLOGICAL END OF TAPE 
| 77 010000 XSORLL® BIT12 RECORD LENGTH LONG 
78 004000 XSOMLE* BIT11 sWRITE LOCK ERROR 
79 002000 XSONEF= BIT10 sNON EXECUTABLE FUNCTION 
| 80 001000 XSOILC* BIT9 , COMMAND 
81 000400 XSOILA* BITS sILLEGAL ADORESS 
82 000200 XSOMOT= BIT7 TAPE IN MOTION 
83 000100 XSOONL* BIT6 TRANSPORT ON LINE 
84 000040 XSOIE* BITS TINTERRUPT ENABLE 
| BS 000020 XSOVCK= BIT4 SVOLUME CHECK BIT 
86 000010 XSOPED= BIT3 sPHASE ENCODED OR 
| 87 000004 XSOMLK= BIT2 SWRITE LOCKED 
| 





TSVS - GLOBAL ARE 


mm a - ee a _—— oe eee ee e+ + eee oe oe _ 
_—— 


E 3 


MACRO M1113 14-JUN-64 15:55 


TSVOS REGISTER AND S PACKET DEFINITIONS 


017400 
000377 


1° 
sBIT DEFINITIONS FOR EXTENDED STATUS REGISTER 1 


3(xXST1) 

X1.0LT BIT15 sDATA LATE 
X1.SP BIT14 sNOT USE 

X1.COR ABLE DATA 


8 ARITY 
BIT1 sUNCORRECTABLE DATA OR HARD ERROR 


3° 
e381 . FOR EXTENDED STATUS REGISTER 2 


x2. OPM == BIT1S sOPERATION IN PROGRESS (TAPE MOVING) 

X2.RCE = BIT14 sRAM CHECKSUM ERROR 

X2.SPARE* BIT13+BIT12+BIT11+BIT9-BITS NOT USED BY TSVOS (ALWAYS=0) 

X2.WCF = BITIO sWRITE CLOCK FAILURE (FIFO NOT EMPTIED BY TRANSPORT ) 
X2.EXTF = BIT7 sIF WRITE CHAR CMD THEN = Hp. FEATURES ENABLED 
X2.BUFE = BIT6 sIF WRITE CHAR CMD THEN = BUFFERING ENABLED 

X2.REV_ = 000077 sIF WRITE CHAR CMD THEN = MICROCODE REVISION LEVEL 
X2.UNIT = BIT2+BIT1-BITO. sIF GET STATUS THEN = CURRENTLY SELECTED UNIT NO. 


3¢ 
a. FOR EXTENDED STATUS REGISTER 3 
é 


X3.MDE = 177400 IMICRO-DTAGNOSTIC ERROR CODE 
"SPARE= BIT7 NOT USED BY TSVOS 

= BITé JOPERATION INCOMPLETE 

= BITs RESPONSE FAILURE 

*61T2-BIT1 NOT USED ALWAYS 0 

X3_RIB © BI }REVERSE INTO BOT 


sBIT DEFINITIONS FOR EXTENDED STATUS REGISTER 4 


BIT1i5 
BIT14 ;RETRY COUNT EXCEEDED 


IT12.81T11-BI110«8179-B178 sNOT USED ALWAYS 0 
TE RETRY COUNT FIELD 


sTSSR TERMINATION CODES (BIT 0-2) 
; 
t- 


TSREJ= 32 sCOMMAND REJECT 
UNREC= 6 sUNRECOVERABLE ERROR 


; * BIT13 s CORRECT ERROR 
X1.MBZ = BITL2-61711-81110.8119-6177 .B116.B115-B1T4 BIT3.81T2+8170 sALWAYS 0 
= BITS READ BUS P 


SEQ 0030 


a 


000200 
;REVERSE 
000020 ‘ | TRANSPORT 
x3. * BIT3 CHECK 
000006 X3.MBZ 
¢ = BITO 
8¢ 
(xXST4) 
F sHIGH SPEED 
040000 
020000 SIT13 ; TRANSPORT SPECIAL MODE 
: 000377 sWRI E 
" 
ED 
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TSVOS REGISTER AND PACKET DEFINITIONS 


3¢ 


; 
;DEVICE 
; 
3 - 
000000 TSBA== 
000000 TSO6 == 
000001 TSBAH== 
000001 TSOBH== 
TSSR== 
000003 TSSRH== 


3¢ 


F3 
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REGISTER OFFSETS 


sTSOB/TSBA REGISTER 


sTSOB/TSBA REGISTER HIGH BYTE 
sTSSR REGISTER 
sTSSR REGISTER HIGH BYTE 


wnhrr OO 


; TSOB ADDRESS BIT DEFINITIONS 


3 - 
000003 A1716 


= BIT1+BITO sADORESS BITS 17:16 ARE IN 1:0 


3° 
3 COMMAND DEFINITIONS 


000017 P .GETSTAT * 17 sGET STATUS 
000013 P.INIT * 13 s INITIALIZE 
000012 P. CONTROL = 12 sCONTROL COMMANDS 
000011 P.F T e 11 sFORMAT 
000010 P.POSITION = 10 sPOSITION 
000006 P.WRTSUB = 6 sSUBSYSTEM WRITE 
000005 P.WRITE e 5 sWRITE 
000004 P .WRTCHAR = 4 sWRITE CHARACTERISTICS 
000001 P READ *1 sREAD 
3¢ 
; COMMAND PACKET HEADER WORD BIT DEFINITIONS 
es 
100000 P.ACK = BIT1S sBUFFER AVAIL FOR CONTROLLER 
040000 P.CVC = BIT14 sCLEAR VOLUME CHECK 
020000 P.OPP = BIT15 sREVERSE SEQUENCE OF DATA BITS 
010000 P.SWwB == BIT12 sSWAP BYTES IN MEMORY 
007400 P.MODE = @IT11!61T10:811918178 sEXTENDED COMMAND MODE FIELD 
P.IE * BIT7 s INTERRUPT ENABLE 
000140 P.FMT= BIT6!BITS }PACKET HEADER TYPE 9 eatin 
000037 P.CMmD == (37 sMAJOR COMMAND FIELD 
3° 
s CONTROL COMMAND MODE CODES 
ge 
000000 PC .RELEASE = 00256. sRELEASE BUFFER 
000400 PC .REWIND = 10256. sREWIND 
001000 PC .NOOP * 20256. sNO-OP 
002000 PC. IEREW = 49256. sREWIND IMMEDIATE INTERRUPT 
002400 PC .ERASE » 56256. sSECURITY ERASE 


SEQ 0031 


facstanetfics Waker cis ace be Poccns  Ae EaNhk 


aR 
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198 se 
199 3; CONTROLLER RAM DEFINITIONS 
200 3° 
201 000167 RMCHBEG = 167 sCHARACTERISTICS IO DATA BEGIN RAM ADORESS 
202 000200 RMCHEND = 200 sCHARACTERISTICS IO DATA END RAM ADDRESS 
203 000201 RMPKTBEG= 201 sCOMMAND PACKET BEGIN RAM ADDRESS 
204 000210 RMPKTEND= 210 } COMMAND PACKET END RAM ADDRESS 
205 000215 RMMSGBEG= 215 sMESSAGE BUFFER BEGIN RAM ADDRESS 
206 000234 RMMSGEND= 234 sMESSAGE BUFFER END RAM ADDRESS 
207 3¢ 
208 3 
209 sREGISTER DEFINITIONS IN THE MESSAGE BUFFER 
210 3 
aE d 
213 000006 xSTO#= 6 sEXTENDED STATUS REGISTER O (WORD 4) 
214 000010 xSTi== 8 sEXTENDED STATUS REGISTER 1 (WORD 5) 
215 000012 XST2=s= 10 sEXTENDED STA REGISTER 2 (WORD 6) 
216 000014 xST3<«= 12 sEXTENDED STATUS REGISTER 3 (WORD 7) 
a4 000016 XST4s= 14 sEXTENDED STATUS REGISTER 4 (WORD 8) 
= ; OFFSETS TO WORD LOCATIONS IN PACKET DEFINITIONS 
3 
225 000002 PKLOW s2 sLOW ORDER CHARACTERISTIC DATA POINTER 
226 000004 PKHI = 4 sHIGH ORDER CHARACTERISTIC aoe POINTER 
+44 000006 PKBCNT = 6 sNUMBER OF BYTES IN DATA PACKET 
34 000010 EXBCNT=10 sNUMBER OF BYTES IN EXTENDED DATA PACKET 
231 3¢ 
4 sDATA PACKET OFFSETS FOR WRITE SUBSYTEM COMMAND 
id 
234 000000 BSELO = 0 sBYTE O 
235 000001 BSEL1 = 1 ;BYTE 1 
236 000002 SEL2 zs 2 sWORD 2 
237 000004 SELDATA = 4 sWORD 3 


SEQ 0032 
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H3 


3° 
sBSELO SELECT CODES FOR WRITE SUBSYSTEM COMMAND 


= 
PwW.NOP 


sDISABLE MICROTEST 11 AND 13 
sREAD EXT. TAPE STATUS (NOT SUPPORTED BY ALL TRANSPORTS 


3¢ 
sBSEL1 CODES FOR WRITE TAPE CONTROL 


WC. IFAD * BIT7 
WC. IOTAD = BIT6 
we. I1TAD * BITS 
WC. ISRESV = BIT4 
we. * BITS 
WC. IRWU * BIT2 
WC. IFEN * BIT1 
WC. IGO = BITO 
sBSEL1 CODES FOR WRITE 
oe 

WF. IHISP = BIT7 
WF. IWRT = BIT6 
WF. IREV * BITS 
WF. IWFM = BIT4 
WF. IEDIT = BITS 
WF . IERASE * BIT2 
WF. ISRESV * BIT1 
WF. I4RESV = BITO 


3¢ 
sBSEL1 CODES FOR WRITE 


FORMAT 


IFAD - FORMATTER. ADDRESS 


ITADO - TRANSPORT ADDRESS BIT O 
sITAD1 - TRANSPORT ADORESS BIT 1 
sIRESVS - RESERVED 05 

sIREW - REWIND 

sIRWU - REWIND AND UNLOAD 

;IFEN - FORMATTER ENABLE 

3G0 

sIHISP - HIGH SPEED 

sIWRT - WRITE 

sIREV - REVERSE 

sIWFM 8=- WRITE FILE MARK 

sIEDIT - EDIT 

sIER - ERASE 

3’ AESVS - RESERVED @3 

_fRESV4 - RESERVED 04 


MISCELLANEOUS SUBCOMMAND 


MS .EXT = BIT7 
MS .RSFIFO = BIT4 
MS .RSTAPE = BITS 
MS.ATTN * BIT2!BIT1 
MS ..RSO * BITO 


sINVERT SENSE OF EXTENDED FEATURES SWITCH 
iRESET FIFO AND INPUT PARITY ERRORR 
sRESET TAPE STATUS IN 2 FLIP-FLOPS 
SATTENTION ewe FIELD 

sRESET TIMER A,B THEN DELAY TIMES IN SEL2 
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291 te 

292 ; MS.ATTN SUBCODES 

293 3° 

294 000000 MSA.NOP = O22 1NO-OP CNOTHING TRIGGERED) 

295 000002 MSA.VOL = 12 s SIMULATE = LINE/OFF-LINE TRANSISTION 

2% 000004 MSA.NRAM= 202 sFORCE NON-FATAL RAM ERROR (FORCES ERRCODE S54) 

297 000006 MSA.FRAM= 322 SFORCE FATAL RAM ERROR (CAUSES SCE TO SET) 

298 :¢ 

299 ; WRITE SUBSYSTEM WRITE NPR BSEL1 BIT DEFINITIONS 

300 3: 

301 NP .IR = BIT7 s INTERRUPT REQUEST (0-1 TRANSITION) 

302 000100 NP .OUT = BIT6 i TAPE DATA DIRECTION OUT (O= IN) 

303 000040 NP .LOOP = BITS sENABLE TRANSPORT LOOPBACK 

ao 000020 NP .WRP = BIT4 ‘WRITE CORRECT PARITY (SET=0 TO WRITE WRONG) 
3° 

oF ; READ STATUS MESSAGE BUFFER BIT DEFINITIONS 
5'> 

308 

309 S2.0IM = BIT7 sWORD #9 BYTE 2 ory IN MISS 

310 000100 S2.ILW = BIT6 : Iw 

311 000040 S2.0UTRDY * BITS 3 OUT ROY H 

312 000020 S2.INRDY = BIT4 ; IN ROY H 

313 000010 S2.ATIMR * BITS F TIMER A FLAG H 

314 000004 S2.BTIMR * BIT2 3 TIMER B FLAG H 

315 000003 ‘ F * BIT1+BITO 3 CUNDEF INED ) 

316 100000 S1.PARIN » BIT1S sWORD #8 BYTE 1 PARIN H 

317 040000 $1. I2RESV = BIT14 3 IRESV2 

318 020000 $1. I1RESV = BIT13 3 IRESV1 

319 010000 $1.IE0T * BIT12 F IEOT L 

004000 $1. 1IDENT = BIT1i1 3 IIDENT H 

321 002000 $1.ICER = BIT10O 3 ICER H 

322 001000 S1.IFMK =» BITS $ IFMK H 

323 000400 S1.IHER = BITS 3 IHER H 

324 SO. ISPEED = BIT7 sWORD #8 BYTE O ISPEED H 

325 000100 SO.IRDY = BIT6 ; IRDY L 

326 000040 SC IONL = BITS 3 TONL L 

327 000020 SO. ILOP = BIT4 3 ILOP L 

328 000010 SO. IDBY = BITS F IOBY L 

329 000004 SO. IRWD = BIT2 3 IRWO L 

330 000002 SO.IFBY = BIT1 3 IFBY L 

331 000001 SO.IFPT = BITO ; IFPT L 
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14-JUN-84 15:55 
.SBTTL SPECIAL MACROS AND OPDEFS. 
3¢ 
;SAVE GENERAL REGS 1 TO 5 


-MACRO SAVREG 
JSR RS ,REGSAV 


"MACRO TO FORCE AN ERROR 


-HACRO FORCERROR TAG ,NOTSSR 
“IIE NOF LISTALL, .NLIST 

+ 8 NOTSSR 

ate MOV TSSR(RS),R1 ;READ TSSR 

é MOV FORCER,FORCER ;IS FORCER SET? (LEAVE C BIT ALONE) 

BNE TAG :BR IF YES 

.NLIST 

“TIF NOF LISTALL, .LIST 

“LIST 

ENOM 


; MACRO TO FORCE AN EXIT TO AVOID SECTION ITERATIONS 
‘ WILL EXIT TO A LABEL IF FORCER IS NEGATIVE 
; so TO ten ae es oe 
; FORCER TO 177777 

; TO FORCE ERRORS AND ITERATIONS SET FORCER TO 1. 
i- 

-MACRO FORCEXIT TAG 

“NLIST 

al LISTALL, .NLIST 


° MOV FORCER,FORCER ;IS FORCER NEGATIVE? 
BMI TAG ;BR IF YES 


.NLIST 

.IIF NOF LISTALL, .LIST 

-LIST 

ee 

* MACRO TO INCREMENT ERROR COUNTS 

“ACR NEXT. ERRNO 

333.I1IF NOF LISTALL, .NLIST 
ERRNO=ERRNO+1 

333-1IF NOF LISTALL, .LIST 

-LIST 


SEQ 0035 
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002176 000000 
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S. 


3° 
;MACRO TO PERFORM XOR 


-MACRO XOR A.B 
MOV A,-C(SP) 
BIC B, (SP) 


A.B 
BIS (SP)-+,B 
NOM 


EN=0 
-SBTTL FORCER - FORCE ERROR FLAG 


; 
; THE FOLLOWING LOCATIONS MAY BE PATCHED BY THE USER 
; TO OBTAIN THE RESULTS DESCRIBED FOR EACH. 

; 


FORCER: : 0 re FORCE TYPE ALL HARD ERRORS (THE ONES CALLED - 
; - BY THE MACRO “IFERROR”). AN ERROR NEED NOT 
; > Bast JUST ASSUME AND TYPE THE MESSAGE. 


SEQ 0036 


s INITIALIZE ERROR NUMBER 


A 
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5.’ 


-SBTTL GLOBAL DATS SECTION 


THE GLOBAL DATA gt CONTAINS DATA THAT ARE USED 


sIN MORE THAN ONE T 
alia 


j 
3; THE FOLLOWING DATA ARE SET FOR EACH UNIT AT INIT TIME. 
sSINGLE UNIT DEFAULTS (LISTED) ARE IN THE DEFAULT P-TABLE. 


a 
EPRTSW:: . WORD 
UNITN: : . WORD 
QvP:: . WORD 
CSRADOR: : . WORD 
IVEC: : . WORD 
IPRI:: . WORD 
TSTCNT:: . WORD 
LOOPCNT: : . WORD 
DEVCNT: : . WORD 
FATFLG:: . WORD 
INTRECV: : . WORD 
EXTFEA:: . WORD 
BENBSW: : . WORD 
EXPO: : . WORD 
RECV:: . WORD 
ERRHI: : . WORD 
0:: . WORD 
RAMDATA: : -BLKW 
RAMSIZ:: - WORD 
RCVHIADO: : . WORD 
RCVLOADO: : . WORD 
COUNT: : . WORD 
DATA:: . WORD 
TSTFLAG: . WORD 
TSTPTR:: WORD 
PRMNO: : . WORD 
EXPMSG: : .BLKB 
RECMSG: : -BLKB 
TMPBFR: : .BLKB 


@rroooococoooroococoooooocsco 
°3s oa 


sPRINT SWITCH 

sUNIT @ UNDER TEST. 

sQUICK VERIFY FLAG. 

sADORESS OF CSR FOR CURRENT DEVICE 

s INTERRUPT VECTOR 

s INTERRUPT PRIORITY. 

sNUMBER OF TESTS RUN IN THIS PASS 
sREMAINING ITERATION — FOR TEST 
sNUMBER OF DEVICE UNDER TEST 

SET IF FATAL ERROR IS DETECTED IN TEST 
SET APE INTERRUPT WAS RECEIVED 
WARE SW O*OFF ;1=0N 


ENABL 
sEXPECTED RAM DATA FOR PRAMPKT ROUTINE 
sRECEIVED RAM DATA FOR PRAMPKT ROUTINE 
sHIGH ADORESS MEMORY ERROR 


:LOM ADORESS MEMORY ERROR 
sDATA READ FROM RAM PACKET OR MESSAGE BUF AREA 
sRAM DATA SIZE FOR PRAMPKT ROUTINE 


sPRINT INE TEMP 

sEXPECTED MESSAGE BUFFER DATA 
sRECEIVED MESSAGE BUFFER DATA 
s TEMPORARY STORAGE FOR PRINT 





a eC ee ee ee ——— +} 


M3 
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TSTBLK - TEST DATA TABLE 
452 .SBTTL TSTBLK - TEST DATA TABLE 
453 
454 :¢ 
455 3 
456 ;THIS TABLE CONTAINS TEST DATA USED IN SEVERAL TESTS 
457 Fy 
458 3IN SEQUENCE THE DATA IS: 
4s9 F 
460 : ALL ZEROS 
461 3 ALL ONES 
462 3 WALKING ONES 
463 F WALKING ZEROS 
464 3 ALTERNATING ONES AND ZEROS 
465 8 
466 8° 
467 
468 002752 TSTBLK: : 
469 002752 . WORD sALL ZEROS 
470 002754 177777 . WORD 177777 sALL ONES 
471 002756 000001 -WORD BITO ;DATA FOR WALKING ONES 
472 002760 -WORD BIT1 
473 002762 .WORD BIT2 
474 002764 000010 -WORDB BITS 
475 002766 000020 -WORD BIT4 
476 002770 000040 .WORD BITS 
477 002772 000100 -WORD BIT6 
478 002774 -WORD BIT7 
479 002776 -WORD SITS 
003000 001000 -WORD BITS 
461 3002 -WORD BIT10 
482 003004 004000 -WORD BIT11 
483 003006 010000 -WORD BIT12 
484 003010 -WORD BIT13 
485 003012 -WORD BIT14 
486 003014 1 .WORD BIT15 
487 003016 177776 . WORD tCBITO ;DATA FOR WALKING ZEROS 
488 003020 177775 . WORD tCBITi 
489 003022 177773 . WORD tCBIT2 
490 003024 177767 . WORD tCBITS 
491 003026 177757 . WORD tCBIT4 
492 003030 177737 . WORD tCBITS 
493 003032 177677 . WORD tCBIT6 
494 003034 177577 . WORD tCBIT7 
495 003036 177377 . WORD tCBITS 
496 003040 176777 . WORD tCBIT9 
497 003042 175777 . WORD tCBIT10 
496 003044 173777 . WORD *tCBIT11 
499 003046 167777 . WORD *CBIT12 
S00 003050 157777 WORD tCBIT13 
501 003052 137777 WORD tCBIT14 
S02 003054 077777 . WORD *CBIT15 
503 003056 . WORD 125252 ;ALTERNATING ONES, ZEROS 
504 003060 WORD 052525 ;ALTERNATING ONES, ZERO OPPOSITE FROM ABOVE 


052525 ° 
505 003062 TBLEND==. 
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511 003062 
S12 003072 
— 003112 
ze 003114 
519 003116 
S20 003120 
S21 003122 


S22 
S23 003126 


556 003176 
557 003376 


559 003400 


000000 
000000 


177777 
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. SBTTL 


N3 


GLOBAL ENVIRONMENT STORAGE 


:STORAGE FOR DEVICE REGISTERS 


i 
100000 000000 DUMMY: 0,100000,0,0 sDUMMY DEVICE REGISTERS... 
000000 000000 0,0,0,0,0,0,0,0 


.-FOR MULTI-UNIT CHECKOUT 
: “DROPPED UNIT” FLAG. 
sINHIBITS CODE IN “CLEAN-\P”. 
sFLAG TO SAY NO DEVICE. 
;SOME TEMP LOCATIONS. 


:XXDP+ COMM BLOCK POINTER. 


;LAST WORD’ IN FREE 

sKT11, MEM AVAIL FLAG - 

;- . WORD 0 = <24K OR NO KT - 

s- NZ = >24K AND KT. 

;SET BY TEST ROUTINES TO FLAG >26K UNDER TEST 
“eer CLEARED OTHERWISE 


SS BITS 
3NXM HI ADORESS BITS FOR DAL’S 16-21 
311/23A FLAG 
311/238 FLAG 
;TEST 36 FLAG tO 
;32W BLOCK ADDRESS FOR 32k START 


3 
sACTUAL DATA 
s;EXPECTED DATA 


;CONFIGURATION TABLES. 
CONFIG WORK. 


ee. 

. 

Ww 

~ 
eng 
Bos 

: 

Ww 


| poem: o ooo0o00o oOo 0 
* 
4 
S 
ba 


SUGGS SSGSGSGGEERS 5 S5558 8 5 


1'oooo oooo 


~ 


END OF MEM TABLE. 


JERROR STATISTICS TABLE (1 WORD PER UNIT), 64 UNITS MAX: 


160001 
14XXXxX 


3 
ERTABL : 
ERTABE : 


SKIPT: .WORD 


UNIT NOT TESTED 
UNIT ONLINE, NO ERRORS 

UNIT ONLINE, ENCOUNTERED XXXX ERRORS 

UNIT DROPPED, NON-EXISTENT vee REGISTER 
UNIT DROPPED, NOT IDLE AT STAR 

UNIT DROPPED, ENCOUNTERED XXXx TERRORS 


64. 
0 


0 31*SKIP SUBTEST O=NO SKIP OF SUBTEST 


-BLK 
. WORD 


361 
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124 


MACRO M1115 
123 126 
052 oS2 

003345 003551 

003607 0036135 
103 000 
111 105 
103 105 
115 122 
130 115 
102 101 
ill 124 
111 124 
123 122 
106 114 
111 124 
111 124 
111 124 
111 124 
111 124 
111 124 
123 123 
123 123 
040 116 
101 040 
101 040 
101 040 
116 045 
040 125 
040 111 
116 045 
040 116 
040 111 


14-JUN-64 15:55 


B4 


\SBTTL GLOBAL TEXT MESSAGES 
se 
| THE GLOBAL TEXT SECTION CONTAINS FORMAT STATEMENTS, : 
| MESSAGES, AND ASCII INFORMATION THAT ARE USED IN 
| MORE THAN ONE TEST. 
:* - 
3° 
INAMES OF DEVICES SUPPORTED 
; DEVTYP <TSVOS> 


LSOvTyYP:: 
-ASCIZ /TSVOS/ 
EVEN 


3¢ 
sTEST DESCRIPTION 
g= 
DESCRIPT <eees TSVOS LOGIC DIAGNOSTIC - REPLACE M7196 IF ERROR eese> 


LSOESC:: 
oe /eeee TSVOS LOGIC DIAGNOSTIC - REPLACE M7196 IF ERROR eeee/ 


3° 
sBIT TO ASCII CONVERSION FOR TSSR REGISTER 


t- 
TSSRBIT:: . WORD 16,2¢,3%,4%,5%,6%,7%,8% 
. WORD 96,108,118, i2%. 13%, 148,158, 16% 
1s -ASCIZ ‘SC’ 
2s: -ASCIZ ‘BIE’ 
3%: -ASCIZ ‘SCE’ 
4; -ASCIZ ‘RMR’ 
S$: -ASCIZ ‘NX’ 
6%: -ASCIZ ‘NBA’ 
78: -ASCIZ ‘BITS’ 
6s: -ASCIZ ‘BITS’ 
9%; -ASCIZ ‘SSR’ 
108; -ASCIZ ‘OFL' 
118: -ASCIZ ‘BITS’ 
12%: -ASCIZ ‘BIT4’ 
13%: -ASCIZ ‘BITS’ 
146%: -ASCIZ ‘BIT2’ 
15%; -ASCIZ ‘BIT1i’' 
166: -ASCIZ ‘BITO’ 
SFIERR: .ASCIZ ‘TSSR ERROR AFTER SOFT INIT’ 
ts ‘TSSR ERROR AFTER BUS RESET’ 
AER ; -ASCIZ / WON-EXISTANT DEVICE REGISTER/ 
WXRX ; -ASCIZ /#A ADORESS: #06/ 
TSSX:; -ASCII /#A TSBA,TSSR EXP'D: SO068A,8060N/ 
-ASCIZ /SA TSBA,TSSR REC'D: S068A,806/ 
FUSI: -ASCII /A/ 
USI: -ASCIZ / UNEXPECTED INTERRUP 
aa F -ASCIZ / A gag EXPECTED, "Mor RECEIVED 
NOINTR: .ASCIZ / NO INTERRUPT WAS GENERATED/ 
IFAAT: .ASCIZ / INTERRUPT FAULT/ 





a ae ee ee ee. - a an ms ee ee ee ee ~~ —- —— — - 


C4 
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632 0043500 045 101 INTX:  .ASCIZ /8A CPU PC: SO6HA 


TSBA; #06/ 
NOINIT: .ASCIZ / “BUS-INIT” “DION T INITIALIZE Pn tara 
NSINIT; .ASCIZ / “SOFT-INIT” DION'T INITIALIZE THE OPU/ 
Aare * “BUS-RESET” DION’ T INITIALIZE THE OPU/ 


/aN/ 
ASCIZ .A EXP'D: SO068A, REC'D: #06/ 
639 004567 045 116 045 EXPGT2: .ASCIZ /aNSA EXP'D: SOGHA, SOGENSA REC'D: SOSA, 06/ 
004643 045 101 040 ODUADI2: .ASCIZ eo gy By TO: SO068A REG(R) READ: ont OD: £068A, REC'D: #06/ 


641 0046745 122 101 115 PKTRAM:: « te Do Not Metch Packet 
642 005013 040 103 : IZ / CONFIG DOESN'T MATCH MFG. MASTER/ 
3 127 122 111 WRTMSG: ‘WRITE CHARACTERISTICS Fei led’ 
644 005113 124 123 123 WATERR: .ASCIZ ‘TSSR Incorrect After WRITE Command, More Bite Set Than SSR’ 


ASCIZ ‘FATAL ERROR IN SUBTEST - CHECK TAPE CABLES, TRANSPORT etc. 

ASCIZ ‘ERROR IN SUBTEST - WRITE DATA RETRY a &: TIMES FAILED’ 

ASCIZ ‘SNA eeeee NO NX ADDRESS--CANNOT TEST TIMEOUT. seeeeemn’ 
'SNBA eoeceseocesesoses 11/22A SYSTEM s cnmnacemmame tinea 


" ° its 
645 005206 124 123 123 RDERR: .ASCIZ ‘TSSR Incorrect After READ Command, More Bite Set Than SSR’ 
166: .ASCIZ 
650 005645 045 116 045 6169: a ‘GBA ccosccesesecosoes 11/238 SYSTEM scesceseeessesoceosN’ 


651 7 
= -SBTTL GLOBAL ERROR REPORT SECTION 
654 zee 
655 : THE GLOBAL ERROR REPORT ay th eg? THE PRINTB AND PRINTX 
656 s CALLS THAT ARE USED IN MORE THAN ONE TEST 
4 3 ASCII TEXT STRINGS ARE FOUND IN THE GLOBAL TEXT SECTION. 
* adlegd 
659 005736 BGNMSG NXRERR sNON-EXISTANT DEVICE REGISTER. 
005736 NXRERR : : 
660 005736 PRINTX @NXRX,NODEV sNODEV = NEXM ADORESS. 
005736 0135746 003114 MOV NODEV, -C SP) 
005742 012746 003777 MOV ONXRX , - (SP) 
005746 012746 000002 MOV o- ) 
005752 010600 MOV ° 
005754 104415 TRAP CSPNTX 
005756 062706 000006 ROO 06,SP 
661 005762 004737 005770 JSR PC EXTEND 3s PRINT EXTENSION IF REQUIRED. 
662 005766 ENDMSG 
005766 L10002: 
— 005766 104423 TRAP CéMSG 
ree) THIS ROUTINE APPENDS A UNIQUE EXTENSION (IF REQUIRED) 
—_ a Se ee ae eee 
667 005770 005727 EXTEND: TST CPC )« 
668 005772 000000 EXTA: 0 s 0 = NO EXTENSION. 
669 005774 001402 BEQ 1% 
670 005776 004777 177770 JSR PC, @EXTA 3 APPEND EXTENSION TEXT. 
671 006002 18; PRINTX @NULCR s PRINT A BLANK LINE 
006002 012746 0045350 MOV @MULCR, -( SP) 
012746 000001 MOV #1, -(SP) 
006012 010600 MOV SP ,RO 
006014 104415 TRAP CSPNTX 


006016 062706 000004 ADO @4,SP 
672 006022 000207 RTS PC 


ee j 


D4 
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PRITSSR - PRINT TSSR CONTENTS 
674 .SBTTL PRITSSR - PRINT TSSR CONTENTS 
675 
676 * 
677 
678 }ROUTINE TO DISPLAY THE CONTENTS, AND BIT DEFINITIONS, OF 
679 3 THE TSSR REGISTER. THIS ao NE IS NORMALLY CALLED ONL Y 
680 ‘3 Y A MESSAGE PRINTING ROUTINE | 
681 
682 FINPUTS: 
683 ; 
684 3 Ri CONTENTS OF TSSR 
685 3 | 
686 sSUBORDINATE ROUTINES: 
687 3 
+4 3 CHKAMB CHECK FOR AMBIGUOUS CONTENTS 
3 
690 8° 
691 
692 006024 PRITSSR 
693 006024 VREG sSAVE GENERAL REGISTERS 
694 006030 010104 R1,R4 sSAVE THE TSSR CONTENTS 
695 006032 PRINTB @TSSRFOR,R4 sPRINT THE CONTENTS OF TSSR 
006032 010446 MOV .-(SP) 
006034 012746 006415 MOV @TSSRFOR, -( SP) 
006040 012746 MOV »-(SP) 
006044 010600 MOV SP ,RO 
006046 104414 TRAP CsPNTB 
006050 062706 000006 ADD @6,SP 
696 006054 010400 MOV R4,RO sGET TSSR BACK FOR CHKAMB 
697 006056 004737 016044 JSR ° ANB sARE CONTENTS AMBIGUOUS ? 
698 006062 103410 6cs 5 sBRANCH IF NOT 
699 006064 PRINTX TSSR 3SHOW CONTENTS ARE AMBIGUOUS 
006064 012746 006635 MOV @AMBTSSR, -( SP) 
006070 012746 000001 MOV #1,-(SP 
006074 010600 MOV SP RO 
006076 104415 TRAP CSPNTX 
006100 062706 000004 ADO ott 4 
700 006104 010403 S$: MOV sCONTENTS OF TSSR 
701 006106 042703 001476 BIC SALADORIFATERR: TEnek oe R3 sCLEAR ALL MULTIPLE BIT FIELDS 
702 006112 001434 BEQ 20% sNO BITS ARE SET 
703 006114 012 002632 MOV OTMPBFR .R2 | TEMPORARY ASCII BUFFER 
006 012701 003502 MOV @TSSRBIT,R1 sASCII EQUIVALENT OF Abs 5 
705 006124 005703 10%: TST R3 sREMAINING BITS TO CONVERT 
706 006 001413 BEQ 15% TBRANCH WHEN ALL eae 
707 006130 CLC sCLEAR CARRY FOR SHIF 
706 006132 006103 ROL R3 } SHIFT NEXT oe TOCA CARRY 
709 006134 10. Bcc 13% sBRANCH IF BIT NOT SET 
710 006136 011100 MOV CR1),RO ;POINTER TO BIT DEFINITION 
711 006140 1 11%: Move (RO)+,CR2)+ sMOVE ASCIZ TO BUFFER 
712 006142 001376 BNE $ sMOVE ALL BITS 
713 006144 1127 000054 177777 MOVB @’.,,-1CR2) sINSERT A COMMA TO TERMINATE 
714 006152 005721 13%: TST C(R1i)-+ sPOINT TO NEXT DESCRIPTION 
715 006154 000763 10% sGET THE REMAINING BITS 
716 006156 105042 15%: CLRB -(R2) s TERMINATE THE LINE 
717 006160 PRINIX @#TSSDEF , OTMPBFR SPRINT THE BIT DEFINITIONS 
0061 012746 002632 MOV OTMPBFR, -(SP) 
006164 012746 006606 MOV OTSSDEF , -( SP) 
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TSSR CONTENTS 


012746 000002 MOV 
01 MOV 
104415 TRAP 
062706 000006 ADD 
010403 208: MOV 
042703 177761 BIC 
016303 006676 MOV 
PRINTX 
010346 MOV 
012746 006476 MOV 
012746 000002 MOV 
010600 MOV 
104415 TRAP 
062706 000006 ADO 
010403 MOV 
042703 177717 BIC 
001416 BEQ 
006203 ASR 
006203 Ase 
006203 ASR 
016303 007236 MOV 
PRINTX 
010346 MOV 
012746 006537 MOV 
012746 000002 MOV 
010600 MOV 
104415 TRAP 
062706 000006 ADD 
042704 176377 258: BIC 
001411 BEQ 
PRINTX 
010446 MOV 
012746 006435 MOV 
012746 000002 MOV 
010600 MOV 
104415 TRAP 
062706 000006 ADD 
013703 002200 308: MOV 
PRINTX 
010346 MOV 
012746 000001 MOV 
010600 MOV 
104415 TRAP 
062706 000004 ADD 
000207 RTS 


@TFCASC RS 


sGET THE TSSR CONTENTS 
AR ALL BUT TERMINATION 

sGET THE TERMINATION CODE MEANING 

sPRINT THE TERMINATION CODE 


sTSSR CONTENTS AGAIN 
s;CLEAR ALL BUT FATAL TERMINATION 
sD0N’T PRINT IF ZERO 


sALINE TERMINATION CODE FOR INDEX 
sGET THE FATAL TERMINATION CODE 
sPRINT THE FATAL TERMINATION CODE 


sCLEAR ALL ~~ EXTENDED ADDRESS 
:DON' T PRINT IF ZERO 
sPRINT THE EXTENDED ADORESS BITS 


sPRINT MEAASGE BUFFER ADDRESS 
sPRINT PROPER MESSAGE 


sRETURN TO CALLER 





TSV3S - GLOBAL AREAS MACRO M1113 
PRITSSR - PRINT 1 TS8R CONTENTS 
743 006360 
ee 006 045 116 045 
74 
755 006415 045 116 045 
756 006435 045 116 045 
757 006476 045 116 045 
758 006537 045 116 045 
739 045 116 045 
rc 006635 045 116 045 
61 
762 006676 006716 006741 006767 
763 006716 L 157 162 
764 006741 124 145 162 
765 006767 124 141 160 
766 007011 106 165 156 
767 007031 122 145 143 
768 007113 122 145 143 
769 007162 125 156 162 
770 007206 106 141 164 
771 
772 
773 007236 007246 007302 007315 
774 007246 111 156 164 
77S 007302 122 145 163 
776 007313 102 165 163 
os 007357 122 145 163 


EPRT2: 
EPRT1: 


14-JUN-864 15:55 


-ASCIZ 


Fa 


SEQ 0044 


'GNSA eeeeeREPLACE M7196eeee¢' 


‘SNA TSSR = 806’ 
‘ 'SNBA Extended Address Bits = #06’ 
-ASCIZ ' SNA Termination Cless Code = sT’ 


-ASCIZ ‘sSNSA Fetel Termination Cless Code « sT’ 
.ASCIZ ‘sNSA TSSR Bite Set: sT’ 
-ASCIZ ‘sNSA TSSR Contents Are Ambiguous’ 


1%,2¢,3%,4¢,5¢,6%,7%,8% 

'Normel Termination’ 

‘Termination Condition’ 

‘Tape Stetus a 

‘Function Re 

'Recoveraeble aad - Tape Position se ecord Down’ 
*‘Recovereble Error - Tape Was Not Moved 
'Unrecovereble Error’ 

‘Fetel Controller Error’ 


pS debe — 

‘Interna ieagnostic Failure’ 
‘Reserved’ 

‘Bus Interface or Senity Check Error’ 
‘Reserved’ 


TSVS - GLOBAL AREAS 


PRIPKT 


MACRO M1113 14-JUN-64 15:55 
- PRINT THE ADDRESS/CONTENTS OF COMMAND PACKET 


003134 


007554 
000003 


000010 


017316 


007516 
000003 


000010 


116 
116 


. SBTTL 


G4 


PRIPKT 


SEQ 0045 


- PRINT THE ADORESS/CONTENTS OF COMMAND PACKET 


;THIS ROUTINE PRINTS THE ADDRESS AND CONTENTS OF A COMMAND PACKET. 
— ROUTINE IS NORMALLY ONLY CALLED FROM A PRINT ROUTINE. 


FINPUT: 


10$: 


15%: 


20%: 
25%: 


045 PKTFRM: . 
045 PKTADD: . 


NUMBER OF WORDS IN PACKET 
HIGH ORDER COMMAND patent ADDRESS 
ADDRESS OF COMMAND PACKET 


R3 IS IGNORED IF THE KTENABLE FLAG IS CLEAR. 


sSAVE THE REGISTERS 

sSAVE NO. OF WORDS ” es 

; ABOVE 26K UNDER TEST 

s6R IF YES 

sSET HIGH ORDER ADDRESS TO 0 
ADORESS 


OWER ADDRESS 
sSHIFT BIT 15 INTO C BIT 
sAND INTO HIGH ORDER. 
:PRINT PACKET ADDRESS 


sGET HIGH ORDER ADORESS 
sBR IF NOT ABOVE 26K. 


ADORESS 
sSETUP PARG MAPPING FOR 18 +H — 
sGET RETURNED PAR6 ADORESS BIA 
sSAVE WORD NUMBER 
sGET PACKET CONTENTS 
sPRINT THE DATA 


sNEXT WORD NUMBER 

sDONE ALL PACKET WORDS? 
sLOOP TILL ALL DONE 
sRETURN 


‘SNBA Packet Word @8D18A = 806’ 
‘SNBA Packet Address = #01805’ 





TSV3 - GLOBAL AREAS 
PRIBXOR - PRINT EXPD, RECV AND XOR 


177400 


010203 


045 


MACRO ye - 14-JUN-64 15:55 


- SBTTL 


HG 


SEQ 0046 


PRIBXOR - PRINT EXPD, RECV AND XOR BYTE 


3¢ 
sPRINT EXPECTED DATA, RECEIVED DATA, AND XOR OF THE DATA BYTE 
sTHIS ROUTINE IS NORMALLY CALLED ONLY FOR PRINT ROUTINES. 


7 
; INPUTS: 


TRAP 


RTS 
XORBF OR : 

-EVEN 

. SBTTL 
3¢ 


3 
sPRINT EXPECTED DATA, RECEIVED DATA, AND XOR OF 
IS NORMALLY CALLED ONLY FOR PRINT ROUTINES. 


sTHIS ROUTINE 

3 

s INPUTS: 

$ 

3 R1 

3 Re 

3 

sOUTPUT 

3 

3 RO 

3 - 

PRIXOR 
SAVREG 
MOV 
xOR 
PRINTB 


RECEIVED DATA 
EXPECTED DATA 


| 
| 
XOR OF EXPECTED/RECEIVED DATA 
sSAVE THE — 


R2,R3 sEXPECTED DAT 
R1,R3 sFORM THE EXCLUSIVE OR 
@tC<377>,RO ;BYTE MASK 
RO,R1 sSAVE LOW BYTE RECV 
RO,R2 sSAVE LOW BYTE EXPD 
RO,RS sSAVE LOW BYTE XOR 
exORBE S oR2,R1, RS sPRINT THE MESSAGE 
R1,-CSP) 

R2,-CSP) 

@XORBF OR , -( SP) 

@4,-(SP) 

SP ,RO 

CSPNTB 

#12,SP 

3,RO sRO HAS XOR ON RETURN 

sRETURN TO CALLER 

-ASCIZ ‘sSNA EXPD: SO38A RECV: SO3S8A XOR: #03’ 
PRIXOR - PRINT EXPD, RECV AND XOR 


THE TWO 


RECEIVED DATA 
EXPECTED DATA 


XOR OF EXPECTED/RECEIVED DATA 


sSAVE THE REGISTERS 
sEXPECTED DATA 
USIVE OR 


R2,R3 


R1,R3 sFORM THE EXCL 
@XORFOR,R2,R1,R3 sPRINT THE MESSAGE 





TSV3 - GLOBAL AREAS 
EXPD, RECV AND 


PRIXOR 


- PRINT 


MACRO M1113 14-JUN-864 15:55 
xOR 


116 045 XORFOR: ~My ‘SNA EXPD: SO068A RECV: SOF %A XOR: #06’ 


oa eee ee ee 
a ne a a ee es 


R3,RO sRO HAS XOR ON RETURN 


PC sRETURN TO CALLF® 





TSV3 - GLOBAL AREAS 


PRIEQU 


010110 
010114 


010116 


4 


MACRO M1113_ 14-JUN-84 15:55 SEQ 0048 
- PRINT BIT NUMBERS AS ASCII EQUIVALENT 


-SBTTL PRIEQU - PRINT BIT NUMBERS AS ASCII EQUIVALENT 
3* 


; 
sROUTINE TO CONVERT BIT VALUES TO ASCII AND PRINT THE STRING 
sTHIS ROUTINE IS WORMALLY CALLED FROM A PRINT ROUTINE 


Hy 

3; INPUTS: 

Hy 

8 RO OCTAL VALUE TO CONVERT 

: R1 TABLE OF POINTERS TO ASCII EQUIVALENT 

3 

ig 

PRIEQU: 
SAVREG sSAVE THE REGISTERS 
RTS PC ;RETURN TO CALLER 


-SBTTL PRIRAM - PRINT RAM ADDRESS 
+ 


;PRINT CONTROLLER RAM ADDRESS. 
‘oe ROUTINE IS WORMALLY CALLED ONLY FROM PRINT ROUTINES. 


NINPUTS: 
; R4 RAM ADDRESS 
3 
PRIRAM 
SAVREG ;SAVE R1-RS UNTIL NEXT RETURN 
PRINTB @RAMFOR,R4 sPRINT RAM ADDRESS IN ERROR 
MOV R4,-(SP) 
MOV @RAMFOR , -( SP) 
MOV @2,-C(SP) 
MOV SP ,RO 
TRAP C$PNTB 
ADD 06, 
RTS PC ;RETURN 


045 RAMFOR: —— ‘SNA CONTROLLER RAM ADDRESS = #06’ 


7 Ee 


TSV3_ - GLOBAL AREAS MACRO M1113 14-JUN-84 15:55 SEQ 0049 
PRIADD - PRINT MEMORY ERROR ADDRESS 

915 .SBTTL PRIADD - PRINT MEMORY ERROR ADDRESS 
916 i 
917 i 
918 ;PRINT MEMORY ADDRESS 
919 THIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES. 
920 ; 
921 ; IMPLICIT INPUTS | 
922 ; 
923 ; ERRHI - HIGH ORDER ADORESS 
924 i ERRLO - LOW ORDER ADDRESS 
925 ; 
926 he 
927 010160 PRIADD: 
928 010160 SAVREG :SAVE R1-RS UNTIL NEXT RETURN 
929 010164 013700 002236 MOV — ERRHI.,RO iGET HIGH ADDRESSS 
930 010170 013701 002240 MOV —s- ERRLO.R1 :GET LOW ADORESS 
931 010174 010102 MOV —s- R11, R2 COPY LOW ADDRESS 
932 010176 006101 RO AL :SHIFT BIT 15 TO C BIT 
933 010200 006100 ROL _—s- RO SHIFT INTO HIGH ORDER 
934 010202 PRINTS @PRIAO,RO,R2 § ;PRINT MEMORY ADORESS IN ERROR 

010202 010246 MOV —s- R2, -( SP) 

010204 010046 MOV »-(SP) 

010206 012746 010230 MOV —s- @PRTAO, -( SP) 

010212 012746 000003 MOV —s-«@3, - (SP) 

010216 010600 MOV : 

01 104414 TRAP — CSPNTB 

010222 062706 000010 ADD  -—«-: #10, SP 
935 010226 000207 RTS PC ;RETURN 
937 010230 045 116 045 PRIAO: .ASCIZ ‘sSNA MEMORY ERROR ADDRESS = #01805’ 
938 “EVEN 
940 .SBTTL PRITADD - PRINT MEMORY TEST ADDRESS 
942 
943 SPRINT MEMORY ADORESS 
eae STHIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES. 

o 
346 ; IMPLICIT sNPUTS 
° 

948 i ERRHI - HIGH ORDER ADDRESS 
949 i ERRLO - LOW ORDER ADDRESS 
950 3 
951 3° 
952 010274 PRITADD: 
953 010274 SAVREG ;SAVE R1-RS UNTIL NEXT RETURN 
954 010300 013702 002236 MOV — ERRHI, R2 iGET HIGH ADORESSS 
955 010304 013701 002240 MOV _— ERRLO, R1 iGET LOW ADDRESS 
956 sMOV = R1, R2 COPY LOW ADORESS 
957 sROL RA ;SHIFT BIT 15 TO C BIT 
958 ROL RO ;SHIFT INTO HIGH ORDER 
959 010310 PRINTS @PRITO.R1 |. ;PRINT MEMORY ADDRESS LOW IN ERROR 

010310 010146 MOV 


010312 012746 010356 
000002 





TSV3S - GLOBAL AREAS 
PRINT MEMOR 


| PRITADD - 


| 
| 
| 
| 


010356 
010421 


L4 


wor k M1113 14-JUN-84 15:55 SEQ 0050 
T ADDRESS 
000006 ADD 6, SP 
PRINTS @PRIT1,R2 sPRINT MEMORY ADDRESS HIGH IN ERROR 
MOV R2,-CSP) 
010421 MOV @PRIT1, -(SP> 
000002 MOV @2,-CSP) 
MOV ’ 
TRAP CsPNTB 
000006 ADD #6 ,SP 
RTS PC sRETURN 


116 045 PRITO: .ASCIZ ‘sSNA MEMORY TEST ADDRESS LOW = #06’ 
116 045 PRIT1: a ‘SNA MEMORY TEST ADORESS HIGH = #06’ 





LL Ec 


M4 


TSv3 - GLOBAL AREAS MACRO M1113 14-JUN-64 15:55 SEQ 0051 
| Pace SPACE RECORDS (FORWARD AND REVERSE) COMMAND 
967 .SBTTL SPACE - SPACE RECORDS (FORWARD AND REVERSE) COMMAND 
968 
969 3¢ 
970 F 
971 sROUTINE TO ISSUE A SPACE RECORDS 
972 sCOMMAND CFORWARD OR REVERSE) 
973 3 
ene ; INPUT: 
3 
976 3 R3 NUMBER OF RECORDS TO BE SPACED OVER 
977 3 BIT1S CONTROLS DIRECTION 
978 3 BIT15 = 0 IS FORWARD 
979 3 BIT1S = 1 IS REVERSE 
ong 3 RS FIRST DEVICE UNIBUS ADDRESS 
1 3 
| 3 REQUIRES A WRITE CHARACTERISTICS DONE PREVIOUSLY 
3 
984 ;OUTPUT: 
985 3 
986 3 CARRY SET - SPACE RECORDS COMMAND OK 
987 3 CLR - SPACE RECORDS FAILED 
988 3 
989 3 
a 3 RO THE CONTENTS OF R4 IS MOVED TO RO 
1 F 
992 F 
a4 s IMPLICIT OUTPUT: 
3 
or 3 TAPE HAS BEEN MOVED 
3 
997 ;SIDE EFFECTS: 
998 3 
999 ; 
1000 — 
1901 
1002 010466 SPACE: : 
1003 010466 SAVREG sSAVE THE — REGISTERS 
1004 010472 012737 000764 010660 MOV #500. , SDELAY ;SET UP DELAY 
1005 010500 012737 140010 010650 MOV #140010, 80% sSET UP COMMAND, SPACE FORWARD 
01 005703 TST R3 sCHECK FOR DIRECTION 
1007 010510 100403 BMI 5% sBR, IF REVERSE INDICATED 
1008 010512 010337 010652 MOV R3, 90% HLOAD UP NUMBER OF RECORDS TO SPACE 
1009 010516 000407 6R 10% GO DO COMMAND 
1010 010520 042703 100000 S$: 8Ic @6IT15,R3 SCLEAR OIRECTION BIT 
1011 010524 010337 010652 MOV R3,908 sLOAD UP NUMBER OF RECORDS TO SPACE 
1012 010530 052737 000400 010650 BIS #6ITS 80% sSET REVERSE BIT IN COMMAND PACKET 
1013 010536 012704 010650 10$: 060% ,R4 ;SET UP R4 WITH PACKET ADORESS 
1014 010542 010465 000000 MOV R4, TSOBCRS) sSEND OUT COMMAND 
1015 010546 004737 016250 15%: JSR PC ,WAITF sWAIT FOR SSR 
1016 010552 103420 Ss 20% 368R, IF SSR IS SET AND OK 
1017 010554 DELAY 250 ;DELAY aBout -25 SECONDS 
010554 012727 000250 MOV @250,(PC)+ 
010560 000000 -WORD O 
010562 013727 002116 MOV LSOLY,(PC)+ 
010566 000000 -WORD O 
010570 005367 177772 DEC -6(PC) 
010574 001375 BNE 7-4 


- SPACE RECORDS (FORWARD AND REVERSE) COMMAND 


010576 
010602 
1018 010604 
1919 010610 
1020 010612 
1021 010614 


TSVS - GLOBAL AREAS 
SPACE 


MACRO M1113 14-JUN-64 15:55 


005367 177756 DEC -22(PC) 
001367 BNE .-20 
005337 010660 DEC SDELAY sBUMP DELAY COUNTER DOWN 
001356 BNE 15s sBR, IF MORE DELAY 
BR 60$ s6R IF —" CARRY = CLEAR 

016501 000002 20% MOV TSSAC(RS),R1 ;READ T SSR 
0127 000200 MOV @SSR ,R2 sSET A _—_ 

25%: CMP R2,R1 sARE THEY OK 
001401 BEQ 40% :BR, Ir EQUAL = OK 
000402 BR 60% ; TROUBLE EXIT 
000261 40s SEC sSET CARRY NO TROUBLE 
000401 BR 70$ :EXIT 
000241 = cLCc ;CARRY CLEAR = ERROR 
010400 MOV R4,RO sPASS PACKET ADDRESS 
000207 RTS PC sRETURN 

; 

; 

sPACKET FOR SPACE COMMAND 

; 
010650 .*¢«,¢10>€177770 

| COMMAND WORD 
000000 60%: . WORD 

;NUMBER OF RECORDS TO BE SPACED OVER WORD 
000000 90%: . WORD 
000000 . WORD 
000000 . WORD 
000000 SDELAY: a sDELAY COUNTER 

-SBTTL WRTICHR - WRITE CHARACTERISTICS COMMAND 


tet et 


T - GLOBAL ARE 
URTOMR - WRITE CHARACTERISTICS COnPAND 


1103 011006 
1104 011012 


BS 


MACRO M1113 14-JUN-64 15:55 


NS a 


SEQ 0053 


:ROUTINE TO — A WRITE CHARACTERISTICS 
“gatalpene SO THAT OTHER COMMANDS WILL BE ACCEPTED 


VINPUT: 

’ Ra ADORESS OF PACKET FROM TEST 

: RS FIRST DEVICE UNIBUS ADDRESS 

: REQUIRES A CALL TO SOFINIT BE DONE PREVIOUSLY 
3 

sOUTPUT: 

: RO TSSR CONTENTS 

3 CARRY SET - WRITE CHARACTERISTICS COMMAND OK 

’ CLR - WRITE CHARACTERISTICS FAILED 


SIMPLICIT OUTPUT : 
MESSAGE BUFFER AND OTHER 


BUFFERS ALL SET UP 


3 
3 SOFTWARE SWITCHES SET AS FOLLOWS: 
: EXTFEA = EXTENDED FEATURES PRESENT 
: BENBSW = BUFFER ENABLE SWITCH ON OR OFF 
3 
sSIDE EFFECTS: 
g@ 
WRTICHR:: 
SA sSAVE THE GENERAL REGISTERS 
CLR BENB ow sCLEAR BUFFER ENABLE SWITCH 
CLR EXTFEA sCLEAR EXTENDED FEATURES Sw SWITCH 
108: MOV R4, TSOBC(RS) 8 CGrviAND 
JSR PC ..CHKTSSR sWAIT FOR 
6cs 20% 36R, IF SSR IS SET AND OK 
BR 60% r) IF E CARRY = CLEAR 
203 MOV TSSRCRS).R1 T 
@SSR, sSET UWP EXPEC 
BIT @OFL .R1 8 GOFF LINE SET IN TSSR 
BEQ 25% 36R, IF NO T 
BIS OOFL ,R2 sMAKE THEM LOOK ALIKE 
25%: CMP R2,R1 sARE THEY OK 
Bea 40% s6R, IF EQUAL = OK 
BR 60% sTROUBLE EXIT 
403% ADD 06. ,.R4 :POINT TO WRT CHARA DATA PACKET 
MOV CR4),R3 sGET ADORESS OF MESSAGE BUFFER 
BIT OX2..EXTF ,XST2CRS) } EXTENDED FEATURES BIT SET? 
BEQ 45% s6R IF NO 
on INC EXTFEA 1SET EXTENDED FEATURES SW SWITCH 
BIT @X2 .BUFE ,XST2(CR3) sBUFFER ENABLE he iy SET 
BEQ 50% 18R, IF SWITCH NOT SE 
as INC BENBSW sSET SOFTWARE surtone FoR ENABLED 
SEC 3SET CARRY NO TROUBLE 
BR 70% sEXIT 
608: CLC I CARRY CLEAR = ERROR 
70%: MOV TSSRERS) RO sRETURN TSSR CONTENTS 
RTS PC sRETURN 





TSVS - GLOBAL AREAS 
REWIND 


- POSITION TAPE (REWIND) C 


1135 011020 012704 011110 
000000 


000000 
011050 013727 002116 
000000 
011056 005367 177772 


011 177756 
011070 001367 

1141 011072 005303 
1142 011074 001357 
1143 011076 000241 
1144 011100 010400 
4 011102 000207 


1148 011110 
1150 011110 

1151 011110 102010 
1152 011112 000000 


C5 


MACRO M1113 14-JUN-84 15:55 
OMMAND 


eee ae ae ae e+ one ee - oe ~-< - 


-SBTTL REWIND - POSITION TAPE (REWIND) COMMAND 


3° 


ITHIS ROUTINE WILL REWIND THE SELECTED TAPE. 


TO ARRIVE. 


CALLING SEQUENCE: 


00 A SOFT INIT 
DO A WRITE CHARACTERISTICS 
JSR PC ,REWIND 


CAUTION: THE ROUTINE DOES NOT WAIT FOR BOT 
ALSO THE CALLER MUST CHECK FOR 
SSR TO SET IN THE TSSR 


INPUT: 
a 
3 RS FIRST DEVICE UNIBUS ADDRESS 
i 
; 
sOUTPUT 
; RO THE CONTENTS OF R4 IS PASSED TC RO 
$ 
3 
s= 
REWIND: : 
SAVREG ;SAVE R1-RS UNTIL NEXT RETURN 
ACK, 3sGET PACKET ADDRESS 
MOV R4, TSOBC(RS) sSEND PACKET ADORESS TO EXECUTE 
MOV RS TIME FOR 2400’ REEL TO REWIND 
108: JSR PC ,WAITF sWAIT FOR SSR TO SET 
6cs 20% sLEAVE WHEN SSR IS SET 
DELAY 250. sWAIT FOR .25 SECONDS 
MOV 0250. .(PC)« 
.WORD O 
MOV "pemaieas 
DEC ties 
DEC “22¢PC) 
OEC R3 sBUMP COUNTER DOWN 
BNE 10% sKEEP GOING 
cic sCLEAR CARRY TO SET ERROR 
208%: MOV R4,RO sPASS THE PACKET ADORESS 
RTS PC sRETURN 


-*¢, 61026177770 
-WORD 102010 
-WORD 0 


RWPACK : 


sPOSTION COMMAND (REWIND) 
sNOT USED 


| 
| 
} 


TSVS - GLOBAL AREAS MACRO M1113 14-JUN-84 15:55 5EQ 0055 
CKRAM - COMPARE RAM TO I/0 PACKET 
1154 .SBTTL CKRAM - COMPARE RAM TO I/O PACKET 
1155 3° 
1156 3 
1157 sROUTINE TO READ THE FIRST 8 BYTES FROM RAM 
1158 sMEMORY AND COMPARE THIS DATA TO A COMMAND PACKET. 
1159 3 
1160 : INPUT: 
1161 ; 
1162 : Ra ADORESS OF THE COMMAND PACKET 
1163 : RS FIRST DEVICE UNIBUS ADDRESS 
1164 : 
1165 sOUTPUT: 
1166 3 
1167 3 CARRY SET - RAM MATCHES PACKET 
ye 3 CLR - RAM DOES NOT MATCH PACKET 
116 3 
rey sIMPLICIT OUTPUT: 
1171 3 
1172 F THE TABLE RAMDATA IS FILLED WITH THE 
1173 3 DATA HELO IN RAM. 
Es ; RAMSIZ IS SET TO 8. FOR PRAMPKT ROUTINE 
11 3 
aor sSIDE EFFECTS: 
3 
4 3 THE SUBSYSTEM IS LEFT IN MAINTENANCE MODE 
3 
1180 3: 
1161 
11862 011114 CKRAM: : 
11863 011114 SAVREG sSAVE THE GENERAL REGISTERS 
11864 011120 012701 002242 MOV pot ag sADORESS TO SAVE THE RAM DATA 
11865 011124 012702 000201 MOV ° sBYTE ADORESS OF FIRST RAM DATA 
1186 011130 CLR sCLEAR THE ERROR FLAG 
1167 011132 004737 016536 JSR Pc. CHKTSSR IWAIT FOR SSR 
11868 011136 112765 MOVB €0, TSDBCRS) 3SET MAINTENANCE MODE 
11869 011144 006737 016336 108: JSR PC ,.CHKTSSR SMAIT FOR SSR TO SET 
1190 011150 010265 MOV R2, TSOBC(RS) sSELECT NEXT RAM ADDRESS 
1191 011154 004737 016336 JSR PC .CHKTSSR sWAIT FOR SSR TO SET 
1192 011160 116511 MOVB TSBACRS),(R1) sREAD THE RAM DATA 
1193 011164 122124 CMPB CR1)¢, CR4)> } COMPARE TO EXPECTED 
1194 011166 001401 BEQ 20% sBRANCH IF OK 
1195 011170 INC R3 ISET ERROR FLAG 
1196 011172 20%: INC R2 sADORESS OF NEXT RAM LOCATION 
1197 011174 000210 CMP R2, ORMPK TEND sREACHED END YET ? 
1196 011200 003761 BLE 10% sBRANCH TILL ALL READ 
1199 011202 005703 TST R3 3sWAS AN ERROR FOUND ? 
01 001402 BEQ 30% sBRANCH IF NOT 
1201 011206 000241 CLC sCLEAR CARRY TO SHOW ERROR 
1202 011210 000401 BR 50% sAND EXIT 
1203 011212 000261 30%: SEC 3SHOW GOOD COMPARE 
1204 011214 012737 000010 002302 50%: MOV 68. ,RAMSIZ sSETUP RAMSIZ FOR PRAMPKT ROUTINE 
1205 011222 RTS sRETURN 





ee 


TSVS - GLOBAL AREAS MACRO M1113 14-JUN-84 15:55 SEQ 0056 
| Gane COMPARE RAM TO I/0 CHARACTERISTICS DATA 
1207 .SBTTL CKRAM2 - COMPARE RAM TO I/0 CHARACTERISTICS DATA 
1206 od 
1209 : | 
1210 sROUTINE TO READ THE FIRST 8 OR 10 BYTES FROM RAM 
1211 sMEMORY AND COMPARE THIS DATA TO A CHARACTERISTICS DATA BLOCK. 
1212 : 
174 s INPUT: 
’ 
1215 3 Pp ADDRESS OF THE CHARACTERISTICS DATA 
1216 3 RS FIRST DEVICE UNIBUS ADDRESS 
1217 3 
1218 s OUTPUT 
1219 3 
1220 3 CARRY SET - RAM MATCHES PACKET 
rt ; CLR - RAM DOES NOT MATCH PACKET 
12 
m4 VIMPLICIT OUTPUT: 
3 
1225 3 THE TABLE RAMDATA IS FILLED WITH THE 
1226 3 DATA HELO IN RAM. 
oH 3 RAMSIZ IS SET TO 8. OR 10. FOR PRAMPKT ROUTINE 
3 
oH sSIDE EFFECTS: 
3 
eo 3 THE SUBSYSTEM IS LEFT IN MAINTENANCE MODE 
= 
1233 011224 CKRAM2 
1234 011224 SAVREG sSAVE THE GENERAL REGISTERS 
1235 011230 012701 MOV @RAMDATA,R1 sADORESS TO SAVE THE RAM DATA 
1236 011234 012702 000167 MOV @RMCHBEG, sBYTE ADORESS OF tay RAM DATA 
1237 011240 CLR R3 sCLEAR THE ERROR FLAG 
1238 011242 004737 016336 JSR PC ,.CHKTSSR sWAIT FOR SSR 
1239 011246 112765 000000 MOVB #0, TSOBCRS) sSET 
11254 004737 016336 10% JSR PC, CHKTSSR sWAIT FOR SSR T 
1241 011260 010265 MOV R2, TSOBCRS) sSELECT NEXT RAM ADDRESS 
11264 004737 016336 JSR »CHKTSSR sWAIT FOR SSR TO SET 
1243 011270 116511 MOVB TSBACRS),CR1) sREAD THE RAM DATA 
1244 011274 CMPB CR1)+, CR4)> sCOMPARE TO EXPECTED 
1245 011276 001401 BEQ 20 sBRANCH IF OK 
1246 011300 R3 ISET ERROR FLAG 
1247 011302 20% INC R2 sADORESS OF NEXT RAM LOCATION 
11304 012737 000010 002302 06. ,RAMSIZ | ASSUME EXTFEA NOT SET 
1249 011312 7 002226 TST EXTFEA 31S THE SOFTWARE EXTENDED FEATURES SET 
1250 011316 001407 BEQ $ 36R, IF NOT SET 
1251 011320 012737 000012 002302 MOV #10. ,RAMSIZ iSET RAMSIZ FOR EXTEND FEATURES 
1252 011326 020227 000200 CMP Re, sAT END OF EXTENDED BUFFER 
1253 011332 003750 BLE 10% 38R, IF NOT AT END YET 
1254 011334 000403 BR 27% sAT END BR 
1255 011336 020227 000176 25%: CMP R2, @RMCHEND -2 sREACHED END YET ? 
1256 011342 003744 BLE 10% sBRANCH TILL ALL READ 
1257 011344 005703 27s: TST R3 sWAS AN ERROR FOUND ? 
1256 011346 001402 BEQ 303% sBRANCH IF NOT 
1259 011350 000241 CLC sCLEAR CARRY TO SHOW ERROR 
1260 011352 000401 BR 50% sAND EXIT 
1261 011354 000261 30%: SEC sSHOW GOOD COMPARE 
1262 011356 000207 50$: RTS PC sRETURN 





1310 011456 
1311 011462 
1312 011464 
1313 011466 
1314 011470 
1315 011472 
1316 011474 
1317 011476 


TSv3 - GLOBAL AREAS 
CKMSG 


MACRO M1113 14-JUN-64 15:55 
COMPARE WRITE CHAR. MESSAGE BUFFERS 


002304 
002306 
003134 
017316 


000012 


3¢ 


- SBTTL 


CKMSG 


- COMPARE WRITE CHAR. MESSAGE BUFFERS 


; 

sROUTINE TO COMPARE A WRITE CHARACTERISTICS EXPD AND RECV 
THE EXPECTED AND RECEIVED BUFFERS ARE STORED FOR 
sERROR PRINT POUTINES. 


s;BUFFER. 


; 
INPUT: 


10$: 


55%: 


CARRY 


EXPMSG 

RECMSG 

RCVHIADD 

RCVLOADD 

SAVREG 

MOV RO,RCVHIADO 
MOV 1,RCVLOAD 
TST KTENABLE 
BEQ 10% 

JSR PC, SETMAP 
MOV RO,R1 

CLR R4 

CLR R3 

MOV Re, 

MOV (R2), EXPMSGC( 
MOV CR1) ,RECMSG(R4 ) 
CMP (R2)+,(R1)+ 
BEQ 25 

INC R3 

ADO #2,R4 

CMP R4,014 

BLE 

BIT 

BEQ 

CMP R4,016 

BLE 15% 

TST R3 

BEQ 55% 

cic 

BR 60% 

SEC 

RTS PC 


RECV MESSAGE BUFFER HIGH ORDER ADORESS 
RECV MESSAGE BUFFER LOW ORDER ADDRESS 
EXPD MESSAGE BUFFER ADDRESS 


SET - MESSAGE BUFFERS MATCH 
CLR -MESSAGE BUFFERS DON’T MATCH 


BUFFER IS SET TO EXPD DATA 
BUFFER IS SET TO RECV DATA 


SET TO HIGH ORDER 


ADDRESS OF RECV 


SET TO LOW ORDER ADDRESS OF RECV 


sSAVE R1-RS UNTIL NEXT RETURN 
sSAVE RECV HIGH ADORESS 

sSAVE RECV LOW ADORESS 
ire ABOVE 26K? 


8 NO 
sRETURN ADORESS BIASED TO PAR6 IN RO 
3GET a BIASED TO PARE 


sO0NE FIRST 7 WORDS? 


15% s6R IF NO 
fe -EXTF, XST2CRS) 51S EXTENDED FEATURES SET IN EXPD? 


sBR ae) 

1DONE EXTENDED FEATURES WORD? 
’ 

sANY ERRORS SEEN? 

3BR IF NO 

3SET FAILURE 


$8 
sSET SUCCESS 
sRETURN 


SEQ 0057 


1344 011510 

1345 011512 

1346 011516 
011516 
01 


1361 011610 
1362 011612 
1363 011614 
1364 011616 
1365 011620 


TSV3_ - GLOBAL AREAS 
CKMSG2 - C 


MACRO M1113 14-JUN-64 15:55 
OMPARE EXPD RECV MESSAGE BUFFERS 


017316 


002322 
002466 


- SBTTL 


ee - ~~ 


CKMSG2 - COMPARE EXPD RECV MESSAGE BUFFERS 


. 
}ROUTINE TO COMPARE AN EXPECTED AND RECEIVED MESSAGE 


;BUFFER. THE EXPECTED AND RECEIVED BUFFERS ARE STORED FOR 
s;ERROR PRINT ROUTINES. 
; 
; INPUT: 
3 RO RECV MESSAGE BUFFER HIGH ORDER ADDRESS 
3 R1 RECV MESSAGE BUFFER LOW ORDER ADDRESS 
; R2 EXPD MESSAGE SUFFER ADDRESS 
3 R3 NUMBER OF BYTES TO COMPARE 
3 
3; OUTPUT: 
F CARRY SET - MESSAGE BUFFERS MATCH 
; CLR - MESSAGE BUFFERS DON’T MATCH 
$ 
sIMPLICIT OUTPUT: 
: EXPMSG BUFFER IS SET TO EXPD DATA 
; RECMSG BUFFER IS SET TO RECV DATA 
3 RCVHIADD SET TO HIGH ORDER ADDRESS OF RECV 
F RCVLOADD SET TO LOW ORDER ADDRESS OF RECV 
a 
CKMSGe2: : 
SAVREG sSAVE R1-RS UNTIL NEXT RETURN 
CMP R3, @RECHSG -EXPHSG ; 88D IS COUNT ABOVE MAX ALLOWED? 
BLE 5% 3880 BR IF NO 
MOV @RECMSG -EXPMSG, R3; 880 
PRINTF $ 
MOV »- (SP) 
MOV #1,-C(SP) 
MOV »RO 
TRAP CSPNTF 
ADO SP 
S$: MOV RO, RCVHI sSAVE RECV HIGH ADORESS 
MOV R1,RCVLOAD sSAVE RECV LOW ADORESS 
TST 4 E sTESTING ABOVE 26K? 
BEQ 10% s8R IF NO 
JSR PC, SETMAP sRETURN ADORESS BIASED TO PARG6 IN RO 
MOV RO,R1 sGET RETURNED ADORESS BIASED TO PARE 
10%: CLR ha sWORD IN FER 
CLR sCLEAR ERROR SEEN FLAG 
15%: Move (R2),EXPMSG(R4) ;SAVE EXPD FOR ERROR REPORT 
MOVB CR1),RECMSG(R4) ;SAVE RECV FOR ERROR REPORT 
CMPB (R2)+,(R1)> sEXPD EQUAL RECV? 
BEQ sBR YES 
INC sSET ERROR SEEN FLAG 
25%: ADO #1,R4 sPOINT TO NEXT BYTE 
CMP R4,R3 sO00NE ALL BYTES? 
6BGE $ 36R IF YES 
BR 15% 300 NEXT BYTE 
50%: TST RS sANY ERRORS SEEN? 
BEQ 553 38R IF NO 
CLC sSET FAILURE 
BR 60% 3 
55%: SEC sSET SUCCESS 
: sRETURN 


SEQ 00586 





— ee ee ee se; i a rm me se ee ee oe ee —- 4 


H5 


TSV3 - GLOBAL AREAS MACRO M1113 14-JUN-84 15:55 SEQ 0059 
CKMSG2 - COMPARE EXPD RECV MESSAGE BUFFERS : 


1371 011632 120 122 117 DOEBUGMSG: .ASCIZ ‘PROGRAM INTERNAL ERROR -CKMSG2 MESSAGE BUFFER EXCEEDED-' ;aaD 
1372 011722 045 116 O45 FERCM: .ASCII /SNSA_ s00/ 
1373 011733 040 040 124 ERCM: .ASCIZ / TSSR ERROR CODE REC'D = / 
1374 011766 0S6 056 O56 SIMSG: .ASCIZ /.... AFTER DOING SOFT INIT/ 

1375 012021 124 105 123 TINERR: — TEST: ...7 


012062 104423 TRAP C$MSG 


1376 
1377 3¢ 
1378 8 
1379 sPRINT ROUTINE TO FATAL SOFT INIT ERRORS 
| 1380 3 
1361 : INPUT: 
| 1382 3 
| 1383 : R1 CONTENTS OF TSSR AT ERROR 
1 3 
| 1385 sSIDE EFFECTS: 
| 1386 3 
1387 3 EXECUTES DROP UNIT TO CEASE TESTING 
1388 Fy 
1389 s- 
1390 
1391 012034 BGNMSG SFIMSG 
012034 SFIMSG: : 
1392 012034 004737 006024 JSR PC,PRITSSR sPRINT CONTENTS OF TSSR REGISTER 
1393 012040 004737 017202 JSR PC .CKDROP sDROP UNIT, IF ALLOWED 
1394 012044 ENDOMSG 
012044 L10003: 
012044 104423 TRAP C$MSG 
1395 
1396 3¢ 
1397 sPRINT ROUTINE TO PRINT THE CONTENTS OF 
qt :TSSR AND A COMMAND PACKET OTHER THAN GET STATUS COMMAND PACKET. 
3 
1400 3; INPUTS: 
1401 ; 
1402 3 Ri TSSR CONTENTS 
1403 ; R4 ADORESS OF COMMAND PACKET 
1404 3 
1405 z- 
1406 
1407 012046 BGNMSG PKTSSR 
012046 PKTSSR 
1408 012046 004737 006024 JSR i PRITSSR sPRINT THE CONTENTS OF TSSR REGISTER 
1409 012052 012700 000004 MOV 64,,RO 3NO. OF WORDS IN PACKET 
| 1410 012056 004737 007370 JSR PC, * PRIPKT sPRINT THE CONTENTS OF COMMAND PACKET 
1411 012062 ENOMSG 
012062 L10004; 
} 
| 





TSv3 _- GLOBAL ARE 
CKMSG2 


1449 012110 

012110 
1450 012110 
1451 012114 
1452 012116 
1453 012120 


004737 
012700 
004737 


104423 


004737 


104423 


AS MACRO M1113 14-JUN-64 15:55 
COMPARE EXPD RECV MESSAGE BUFFERS 


006024 
000002 
007370 


006024 


006024 


014242 


SEQ 0060 


3° 
sPRINT ROUTINE TO PRINT THE CONTENTS OF 
;TSSR AND A GET STATUS COMMAND PACKET. 


3 

s INPUTS: 

; Ri TSSR CONTENTS 

: R4 ADDRESS OF COMMAND PACKET 

hes 
BGNMSG PKTGETS 

PKTGETS:: 
JSR PC,PRITSSR sPRINT THE CONTENTS OF TSSR REGISTER 
MOV @2,RO0 3NO. OF WORDS IN GET STATUS PACKET 
JSR PC ,PRIPKT SPRINT THE CONTENTS OF COMMAND PACKET 
ENOMSG 

L10005: 
TRAP C$MSG 

3¢ 

sPRINT TSSR ERRORS FOR INITIALIZATION TESTS 

3 

s; INPUTS: 

3 R1 TSSR CONTENTS 

3 R4 ADDRESS OF COMMAND PACKET 

od 
BGNMSG SFFMSG 

SFFMSG: : 
JSR PC,PRITSSR sPRINT CONTENTS OF TSSR REGISTER 
ENDMSG 

L10U06: 


TRAP C$MSG 
-SBTTL PKTMES - PRINT TSSR AND MESSAGE BUFFER 


{PRINT ROUTINE TO PRINT _ CONTENTS OF TSSR AND MESSAGE 
eahien: FOR ERROR REPORTS 


SINPUTS: 
R1 CONTENTS _* TSSR 
LOW ORDER ME 


H 

; 

3 

: Re 

3 R3 HIGH ORDER MESSAGE BUFF ER ADDRESS 

F NOTE: R3 IS IGNORED IF KTENABLE FLAG IS CLEAR 
i 


BGNISG PKTMES 


PKTMES:: 
JSR PC,PRITSSR sPRINT CONTENTS OF TSSR 
MOV R2,RO sLOW ORDER ADORESS 
MOV R3,R1 sHIGH ORDER ADDRESS 
JSR PC,PRMESS sPRINT THE MESSAGE BUFFER 
ENOMSG 

L10007: 
TRAP C$MSG 





TSV3 - GLIBAL AREAS 
SR - PRINT TEST ADDRESS 


ADOS 


004737 
016501 
004737 


104423 


MACRO M1113 14-JUN-84 15:55 
AND TSSR 


010274 
000002 
006024 


000007 
002226 


000010 
014552 


F 
s INPUTS: 


L10010: 


3* 


SEQ 0061 


-SBTTL ADDSSR - PRINT TEST ADDRESS AND TSSR 


+ 
;PRINT ROUTINE TO PRINT THE CONTENTS OF 
sTSSR AND A MEMORY TEST ADDRESS 


RS 


ERRHI 
ERRLO 


- SBTTL 


FIRST DEVICE UNIBUS ADDRESS 
HIGH ORDER MEMORY TEST ADDRESS 
LOW ORDER MEMORY TEST ADDRESS 


ADDSSR 

PC ,PRITADD sPRINT MEMORY TEST ADDRESS 
TSSRCRS),R1 sGET CURRENT TSSR 

PC ,.PRITSSR sPRINT THE CONTENTS OF TSSR REGISTER 
C$MSG 


MSGEXP - PRINT WRITE CHAR. EXPD-RECV MESSAGE BUFFERS 


{PRINT ROUTINE TO PRINT WRITE CHARACTERISTIC MESSAGE BUFFER 
; 
sIMPLICIT INPUTS: 


EXPMSG 
RECMSG 


- EXPECTED ME: SAGE la 
- RECEIVED MESSAGE BUFFER 


RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 
RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 


BGNMSG MSGEXP 
MSGEXP: : 
MOV @7,RO0 sASSUME NO EXT FEATURES 
TST EXTFEA sEXT FEATURES SET? 
BEQ 5$ 3;6R IF NO 
MOV 46. ,RO sEXT FEATURE BUFFER IS & WORDS 
5%: JSR PC , PRMSGE XP sPRINT EXPD/RECV MESSAGE BUFFERS 
ENOMSG 
L10011: 
TRAP C$mMSG 


KS 


TSV3 - GLOBAL AREAS MACRO M1113 14-JUN-84 15:55 
FIFEXP - PRINT FIFO EXP/RECV DATA 


045 FIFOMSG: 


EVEN 





1494 .SBTTL FIFEXP - PRINT FIFO EXP/RECV DATA 
1495 i+ 
1496 ; | 
1497 ;PRINT ROUTINE TO PRINT FIFO EXP/RECV DATA 
1498 ; 
1499 : R1 - BYTE COUNT 
1500 ; 
1501 ;IMPLICIT INPUTS: 
1502 ; 
1503 : EXPMSG - EXPECTED MESSAGE BUFFER (CONTAINS FIFO DATA ONLY | 
ta ; RECMSG - RECEIVED MESSAGE BUFFER (CONTAINS FIFO DATA ONLY) 
1 = 
1506 012170 BGNMSG FIFEXP 
012170 FIFEXP: ; 
1507 01217¢ PRINTX @FIFIMSG,R1 ;PRINT BYTES TRANSFERRED 
012170 010146 MOV R1,-(SP) 
012172 012746 012242 MOV OF IF IMSG, -( SP) 
012176 012746 MOV #2, -(SP) 
012202 010600 MOV »RO 
104415 TRAP = C$PNTX 
012206 062706 000006 06,SP 
| 1508 012212 PRINTX @FIF sPRINT HEADER MSG 
012212 012746 012311 OF IFQMSG, -( SP) 
| 012216 012746 1 MOV #1,-(SP 
| 0 01 Moy RO 
| 012224 104415 TRAP = C$PNTX 
012226 062706 000004 04,SP 
1509 012232 010100 MOV R1,R0 :GET BYTE COUNT 
1510 012234 004737 015122 JSR PC ,PRBYTEXP ;PRINT FIFO BYTES IN ERROR 
1511 0 ENDOMSG 
012240 L10012: 
| 012240 104423 TRAP =«- C$MSG 
| 1512 012242 045 116 045 FIFIMSG: .ASCIZ ‘sINSA NUMBER OF BYTES TRANSFERRED = #02‘ 
| 1923 012311 045 116 -ASCIZ ‘sNSA FIFO DATA BYTES IN ERROR: ' 
| 
| 
| 
| 


a a a a a a a a a ee ee ee ee ee ee + ee eee ee —_—_——— 4 


LS 


| 
TSV3 - GLOBAL AREAS MACRO M1113 14-JUN-84 15:55 SEQ 0063 
MSGSTAT - PRINT STATUS MEADER AND MESSAGE BUFFERS 
1516 .SBTTL MSGSTAT - PRINT STATUS HEADER AND MESSAGE BUFFERS 
1517 3° 
1518 3 | 
1519 ;PRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV 
1520 F 
1521 3 
1522 ;IMPLICIT INPUTS: 
1523 3 
«4524 ; EXPMSG - EXPECTED MESSAGE BUFFER 
(1525 ; RECMSG - RECEIVED MESSAGE BUFFER 
1526 : RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 
| 1527 : RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 
1 3- 
| 4529 012350 BGNMSG MSGSTAT 
012350 MSGSTAT: : 
| 4530 012350 012701 012412 MOV @STATCOD,R1 sASCII ADORESS TABLE 
| 1531 012354 012100 10$: MOV (R1)+,RO ;00NE ALL MSG LINES? 
| «9532 012356 001410 BEQ 208 ;8R IF YES 
| 1533 012360 PRINTX RO ;PRINT STATUS BIT NAMES 
012360 01 MOV RO, -(SP) 
| 012362 012746 000001 MOV #1,-(SP) 
012366 010600 
012370 104415 TRAP C$PNTX 
| 012372 062706 000004 ADD ; 
1534 012376 000766 BR 10$ ;00 ANOTHER MSG LINE 
| 1535 012400 012700 000012 20%: MOV #10. ,RO ;NUMBER OF WORDS IN A READ STATUS BUFFER 
| 4536 012404 004737 014552 JSR PC , PRMSGEXP ‘PRINT EXPN/RECV MESSAGE BUFFERS 
| 1537 012410 ENOMSG 
012410 L10013: 
fond 012410 104423 TRAP  C$MSG 
1539 012412 012430 012472 012563 STATCOD: .WORD  16,26,3$,4$,56,68,0 
1540 012430 045 116 045 18:.ASCIZ ‘SNSA Tape Bus Signels in Word @8:' 
1541 012472 045 116 045 2%: Z ‘SNSA Pp <15> IEOT <12> IFMK <9> IRDY<6> IRWD<2>° 
| 012563 045 116 045 3%:.ASCIZ ‘sNSA IRESV2<14> IIDENT<11> IHER <8> ION<5> IFBY<1>' 
1543 045 116 045 4$:.ASCIZ ‘sisA TRESV1<13> ICER <10> ISPEED<7> ILDP<4> IFPT<O>' 
1544 012745 045 116 045 5$:.ASCIZ ‘sNSA Tepe Bus Signals in Word #9:' 
1545 013007 045 116 045 63: -ASCIZ SNA DATMES<7> ILWe6> OUTRDY<S> INRDY<4> 





TSV3 - GLOBAL ARE 
ASCLOOP = PRINT LOOPBACK HEADER AND MESSAGE BUFFERS 


1562 013064 


06 
1566 013112 


1576 013516 
1577 013615 
1576 013714 
1579 


012701 
012100 
001410 


ee a ee ee ee -————-- 


MS 


MACRO M1113 14-JUN-84 15:55 


013126 


.SBTTL MSGLOOP - PRINT LOOPBACK HEADER AND MESSAGE BUFFERS 
¢ 


; 

sPRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV 
; 

sIMPLICIT INPUTS: 


; EXPMSG - EXPECTED MESSAGE BUFFER 

; RECMSG - RECEIVED MESSAGE BUFFER 

; RCVHIADO- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 
; RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 
; 


MOV @LOOPCO0,R1 sASCII ADORESS TABLE 
10$: MOV CR1)+,RO sDONE ALL MSG LINES? 
BEQ 20% 3;6R IF YES 
PRINTX RO sPRINT STATUS BIT NAMES 
MOV RO, -( SP) 
MOV #1,-(SP) 
MOV RO 
TRAP CSPNTX 
ADO 04 ,SP 
BR 10$ 100 ANOTHER MSG LINE 
208: MOV #10. ,RO sNUMBER OF WORDS IN A READ STATUS BUFFER 
JSR PC , PRMSGE xP SPRINT EXPD/RECV MESSAGE BUFFERS 
L10014: 
TRAP CsmSG 
8 et _— “yo ety phe 7%, +" ee 
Se 'SNBA Tape copbeck Signals in Wor ' 
2¢:.ASCIZ ‘NSA PARERR<15> IRESV2<14> IRESV1<13>' 
3%:.ASCIZ ‘sNSA IHISP«>IEOT<12> IWRT=>IIDENT<11> IREV =>ICER <10>' 
4%:.ASCIZ ‘sNSA IWEM =>IFMK<09> IEDIT=>IHER <08> IFAD »=>ISPEED<07>’ 
5$:.ASCIZ ‘sNSA ITADO=>IRDY<06> ITADi=>ION. <05> IERASE=>ILDP <04>' 
6¢$:.ASCIZ ‘sNSA IREW =>IDBY<03> IRWU =>IRWD <02> IFEN =>IFBY <O1>’ 
Tee en IGO =*=>IFPT<00>' 


TSV3S - GLOBAL ARE 
MSGSUB 


1594 013742 
013742 


1610 
1611 013754 
013754 


1612 0135754 
1613 013760 
1614 013764 
1615 013770 
1616 013774 

013774 

013774 


012700 
004737 


104423 


004737 
013701 
013702 
004737 


104423 


AS MACRO M1113 14-JUN-84 15:55 
- PRINT WRITE SUBSYSTEM MESSAGE BUFFER 


000012 
0145S2 


-SBTTL MSGSUB - PRINT WRITE SUBSYSTEM MESSAGE BUFFER 
3° 


;PRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV 
; 


‘IMPLICIT INPUTS: 
: EXPHSC - EXPECTED MESSAGE BUFFER 
RECMSG - RECEIVED MESSAGE BUFFER 
; RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADORESS 
RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 
BGNNSG MSGSUB 
MOVs #10... RO :SIZE OF WRITE SUBSYSTEM BUFFER 
JSR PC.PRMSGEXP «SPRINT EXPD/RECV MESSAGE BUFFERS 
ENDMSG 
TRAP CSMSG 


-SBTTL MEMADD - PRINT MEMORY ADDRESS DATA ERROR 
3° 


‘PRINT ROUTINE TO PRINT MEMORY ADDRESS DATA COMPARE ERROR 
‘IMPLICIT INPUTS: 


; 

; ERRHI - MEMORY ERROR HIGH ORDER ADDRESS 

; ERRLO - MEMORY ERROR LOW ORDER ADDRESS 

; ExP - EXPECTED DATA 

; RECV - RECEIVED DATA 

ge 
BGNMSG MEMADD 

MEMADD: : 
JSR PC ,PRIADD sPRINT MEMORY ADDRESS IN ERROR 
MOV EXPD ,R1 sGET E DATA 
MOV RECV,R2 sGET RECEIVED DATA 
JSR PC .PRIXOR sPRINT EXPD/RECV 
ENOMSG 

L10016: 
TRAP Cs$MSG 





1657 014150 
1656 014154 
1659 


1660 014156 
1661 


TSVS - GLOBAL AREAS 
PRAMPK 


MACRO M325 14-JUN-64 15:55 
T - PRINT RAM AND PACKET DATA 


177777 
177777 


045 


-SBTTL PRAMPKT - PRINT RAM AND PACKET DATA 


{PRINT ROUTINE TO DISPLAY RAM/PACKET DATA 
1WMEN THE RAM DATA DOES NOT MATCH. 


’ 
s INPUTS: 
POINTER TO COMMAND PACKET 
HPPLICIT, ae 
RAMDATA DATA AS READ FROM THE 
; RAMSIZ NUMBER OF BYTES IN PACKET 
IF RAMSIZ*0 THEN DEFAULT TO 8. 


IMPLICIT OUTPUTS: 
RAMSIZ SET T0 0 


PRAMPKT : 
SAVREG sSAVE R1-RS UTIL NEXT RETURN 
MOV @RAMDATA,R1 sDATA FROM THE RAN 
CLR R2 sINIT BYTE NUMBER 
S$: CHB 3s (R1)+, (R4)> 1COMPARE EXPECTED, RECEIVED 
BNE 7% 10R IF NO MATCH 
FORCERROR 7%, NOTSSR 
BR 108 1860 
78: MOVB = -1,(R}1), RS 1GET RECV RAM DATA 
MOVB -1(R4).R3 :GET EXPD PACKET DATA 
XOR RS.R3 sXOR EXPO/RECV 
BIC €177400,R3 ;LOW BYTE ONLY 
MOVB = -1(R1), RECV :GET RECEIVED RAM DATA 
MOVB = -:1(R4) EXPD sGET EXPECTED RAM DATA 
PRINTB @RAMASC,R2,RECV.EXPD,R3 
HOV a3, -(SP) 
Sov EXPO, -(SP) 
HOV RECV, -(SP) 
MOV -C ) 
MOV -(SP) 
mov #5, -(SP) 
MOV "RO 
TRAP —- COPNTB 
ADO 614,SP 
108: IWC R2 SUPDATE BYTE COUNT 
TST RAMSIZ ;DEFAULT TO 8. ? 
BEQ 158 1OR IF YES 
Cw R2,RAMSIZ s00ME ALL BYTES? 
BLE 5% 18R IF NO 
6R 25% i 
158: CP R2,06 ;O0ME DEFAULT NUMBER OF BYTES? 
208: LT 5$ ; 
25%: CLR RAMSIZ sSET DEFAULT RAMSIZ 
RTS PC ) RETURN 


‘SNSA BYTE: SD28A RAM: SOSSA Packet: SO3HA XOR: 803° 


RAMASC: .ASCIZ 
-EVEN 





1691 014374 
1692 014376 
1693 014402 
1694 014404 
1695 014406 
1696 014414 
1697 014416 


TSVS - GLOBAL AREAS 
PANES - PRINT CONTENTS OF MESSAGE BUFFE 


MACRO M1115 14- - a 64 15:55 


003134 


017316 


SEQ 0067 


-SBTTL PRMESS - PRINT CONTENTS OF MESSAGE BUFFER 


sTHIS ROUTINE on at THE CONTENTS OF 
1 7 OR 8 WORD MESSAGE BUFFER RETURNED BY THE TSv-05. 


FINPUT: 
: Ro LOM ORDER ADDRESS OF MESSAGE BUFFER 
HIGH ADORESS OF 


ORDEP MESSAGE BUFFE 
NOTE Ri IS IGNORED IF —— FLAG IS CLEAR 
rTHES ROUTINE IS NORMALLY CALLED FROM A PRINT ROUTINE 


PRMESS: SAVREG sSAVE THE REGISTERS 

MOV RO,RS sSAVE LOW ORDER ADORESS 

TST K TENABLE sADORESS ABOVE 26K? 

BNE 10% 36R IF VES 

CLR RL 3SET HIGH ORDER ADDRESS TO 0 
10%: R1,RS 3SA ORLER 


VE HIGH 
SSHIFT 6IT1S 70 C BIT 
sSHIFT TO HIGH ORDER FOR PRINTOUT 


R1 
X @PROASC .R1,RS ;PRINT MESSAGE BUFFER ADDRESS 


MOV 

ROL 

ROL 

PRINT 

MOV RS. -C(SP) 

MOV Ri, -(SP) 

MOV »-(SP) 

MOV @3,-(SP) 

MOV eRO 

TRAP CSPNTX 

ADO #10,SP 

PRINTX @PR1IASC sPRINT HEADER FOR CONTENTS 

MOV @PRIASC , -( SP) 

MOV #1,-(SP) 

MOV eRO 

TRAP CS8PNTX 

ADD @4,SP 

CLR R4 sNUMBER OF THE NEXT WORD 

MOV RS,R1 sCOPY LOW ORDER ADDRESS 

MOV RS, sCOPY HIGH ORDER ADORESS 

BEQ 20% NOT ABOVE 26K 

JSR PC. SETMAP sSE PAR ADORESS IN RO 

MOV RO,.RS sGET PAR FORMAT ADDRESS ABOVE 28K 
208: PRINTX @PRASC.R4,(RS)> }PRINT THE CONTENTS OF MEMORY BUFFER 

MOV C(RS)+, -CSP) 

MOV .-(SP) 

MOV @PRASC, -( SP) 

MOV @3,-(SP) 

MOV SP RO 

TRAP CSPNTX 

ADD #10,SP 

INC Ra sNUMBER OF THE NEXT 

CMP R4,07 sO0NE ALL oY ? 

8GT 508 rr, = 

BLT 20% PRINT F RST” 5 WORDS 

BIT x2. EXTF xST2CRS) EXTENDED FEATUTES ON ? 

BNE 208 sPRINT EXTENDED STATUS WORD 
50%: RTS PC iRE 

: .ASCIZ ‘SNSA Message Buffer Addrees = #01805’ 

PRIASC: .ASCIZ ‘SNSA Meesege Buffer Contents: ' 
PRASC: .ASCIZ ‘sNSA WordsD1isA; s0' 





TSVS - GLOBAL ARE MACRO M1113 14- a 64 15:55 SEQ 0068 
PRMESS - PRINT CONTENTS OF MESSAGE BUFFER 


eee 


1702 .EVEN 
1703 .SBTTL PRMSGEXP - PRINT EXPD/RECV MESSAGE BUFFERS 
1704 
1705 rROUTINE TO PRINT EXPECTED AND RECEIVED MESSAGE BUFFERS 
1706 RO - NUMBER OF WORDS IN BUFFER 
1707 IMPLICIT INPUTS: 
1708 EXPMSG - EXPECTED MESSAGE a 
1709 : RECMSG - RECEIVED MESSAGE BUFFE 
1710 ; RCVHIADO - RECEIVED MESSAGE SUFFER HIGH ORDER ADORESS 
i711 : RCVLOADO- RECEIVED MESSAGE BUFFER LOW ORDER ADORESS 
1712 3- 
1713 014552 PRMSGE XP ; ; 
1714 014552 SAVREG sSAVE R1-RS UNTIL NEXT RETURN 
1715 014556 010005 MOV RO,RS sSAVE NUMBER OF WORDS 
1716 014560 013700 002306 MOV RCVLOADO , RO sGET RECV LOW ADORESS 
1717 014564 i MOV »R4 sCOPY LOW 
1718 014566 013701 002304 MOV RCVHIADD .R1 3GET RECV HIGH ADORESS 
1719 014572 006100 ROL RO sSHIFT BIT1S TO C BIT 
1720 014574 006101 ROL BL sSHIFT TO HIGH ORDER FOR PRINTOUT 
172i 014576 PRINTX @PRMSGO,R1,R4 SPRINT MESSAGE BUFFER ADORESS 
014576 010446 MOV R4,-C(SP) 
014600 010146 MOV R1, -CSP) 
014602 012746 014732 MOV »-(SP) 
014606 012746 000003 MOV @3,-(SP) 
014612 010600 MOV »RO 
014614 104415 TRAP CSPNTX 
014616 062706 000010 ADO #10,SP 
1722 014622 PRINTX @PRMSG1 sPRINT HEADER FOR CONTENTS 
014622 012746 014777 MOV @PRNSG1 , -( SP) 
014626 012746 000001 MOV #1,-(SP) 
014632 01 MOV SP RO 
014634 104415 TRAP CSPNTX 
014636 062706 000004 ADO 64, 
1723 014642 CLR RA sNUMBER OF THE CURRENT WORD 
01 012701 002322 MOV @EXPMSG .R1 IGET EXPD BUFFER ADORESS 
1725 014650 012 002466 MOV @RECMSG ,R2 sGET RECV BUFFER ADORESS 
1726 014654 011100 20%: MOV (R1),RO 3GET EXPD 
1727 014656 011203 MOV a 3sGET RECV 
1728 01 XxOR sXOR EXPOD/RECV 
1729 014670 PRINTX irisGe, R4,(R1)+.(R2), R& 
014670 010346 MOV R3, -(SP) 
014672 0O MOV (R2)+,-CSP) 
014674 012146 MOV CR1)+,-CSP) 
014676 O01 MOV »-C 
014700 012746 015035 MOV .-(SP) 
014704 012746 000005 MOV #5, -( 
014710 010600 MCV SP ,RO 
014712 104415 TRAP CSPNTX 
014714 062706 000014 ADO #14,SP 
1730 014720 005204 INC RA sNUMBER OF THE NEXT 
1731 014722 020405 CMP R4,R5 3;00NE ALL YET? 
1732 014724 002001 BGE 50% 36R IF YES 
1733 014726 000752 8R 206 300 ANOTHER 
1734 014730 000207 50%: RTS PC sRETURN 
1735 014732 O45 116 045 PRMSGO: .ASCIZ ‘SNA Meesage Buffer Address = #01505’ 
1736 014777 045 116 045 PRMSG1: .ASCIZ ‘sSNA Mascoge Buffer Contents: ' 
1737 015035 045 116 045 PRMSG2: .ASCIZ ‘sNSA @8028A EXPO: SO068A RECV: S068A XOR: #06’ 





——— en eee a — 


TSVS - GLOBAL AREAS MACRO M1113 14-JUN-84 15:55 SEQ 0069 | 
PRHSGEXP - PRINT EXPD/RECV MESSAGE BUFFERS | 


1739 - EVEN 
1740 -SBTTL PRBYTEXP - PRINT ERROR BYTES IW EXP/REC MESSAGE BUFFER | 
1741 s¢ , 
1742 3 
1743 sROUTINE TO PRINT ERROR BYTES IN MESSAGE BUFFERS 
1744 3 ONLY THE FIRST 8 ERRORS ENCOUNTERED ARE PRINTED DUE TO SCREEN SPACE 
1745 3 
1746 3 RO - NUMBER OF BYTES IN BUFFER 
1747 3 
1748 sIMPLICIT INPUTS: 
1749 3 
1750 PF EXPMSG - EXPECTED MESSAGE BUFFER 
‘738 3 RECMSG - RECEIVED MESSAGE BUFFER 
1 3- 
1753 015122 PRBYTEXP: : 
1754 015122 SAVREG sSAVE R1-RS UNTIL NEXT RETURN 
1755 015126 010005 RO,RS sSAVE NUMBER OF BYTES 
1756 015130 005037 002320 CLR PRMNO sINIT ERROR COUNT 
1757 015134 CLR Ra r OF CURRENT BYTE 
17586 015136 012701 002322 MOV @EXPHSG ,R sGET EXPD ADORESS 
1759 015142 012702 002466 MOV @RECMSG, sGET RECV BUFFER ADDRESS 
1760 015146 111100 20%: MOVB CR1),RO 3sGET EXPD BYTE 
1761 015150 042700 177400 BIC @tC<377>,RO0 Pr) AR UPPER BYTE 
1762 015154 110037 015470 »PRBE 8 FOR ERROR REPORT 
1763 015160 111203 MOVB CR2),R3 sGET RECV BYTE 
1764 0151 042703 177400 BIC @t0<377>,R3 sCL UPPER BYTE 
1765 015166 110337 015472 MOVB R3 ,PRBREC sFOR ERROR 
1766 015172 XOR RS 3XOR EXPD/RECV 
1767 015202 CMPB CR1)+,CR2)¢ sEXPD = RECV? 
1768 015204 001431 BEQ 30% s6R IF YES 
1769 015206 37 002320 INC PRMNO sUPDATE ERROR COUNT 
1770 015212 023727 002320 000010 CMP PRMNO , #6 sPRINTED 8? 
1771 015220 101023 BHI 30% IF YES 
1772 015222 278: PRINTX @PRBMSG,R4,PRBEXP ,PRBREC .R3 
015222 010346 MOV R3,-CSP 
015224 013746 015472 MOV PRBREC , -( SP) 
015230 013746 015470 MOV PRBEXP , -( SP) 
015234 010446 Mov R4,-CSP 
015236 012746 015336 MOV »- (SP) 
015242 012746 000005 MOV #5, -(SP 
015246 010600 MOV SP RO 
015250 104415 TRAP CSPNTX 
015252 062706 000014 ADO #14,SP 
1773 015256 FORCEXIT 50% 3880 
1774 015266 000404 BR 35% , aed 
1775 015270 30%: 
1776 015270 FORCERROR 27%,NOTSSR 7880 
1777 015300 35%: 3860 
1778 015300 005204 INC RG sNUMBER OF THE NEXT 
1779 015302 020405 CMP R4,RS sDONE ALL YET? 
1780 015304 002001 BGE 50% 3;8R IF YES 
1761 015306 000717 BR 20% 300 ANOTHER 
17862 015310 50¢ PRINTX @PRBTOT,PRMNO sPRINT TOTAL ERROR COUNT 
015310 013746 002320 MOV PRMNO, -C SP) 
015314 012746 015423 MOV @PRBTOT, -C SP) 
015320 012746 000002 MOV @2,-C(SP) 
015324 010600 MOV SP RO 





015326 
015330 
1783 015334 


84 
1785S 015336 
1766 015423 


1788 015470 
1789 015472 


S506 
015506 
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PRBY 


104415 
062706 
000207 


045 116 
045 116 


000000 
000000 


000006 


004737 007742 


104423 


004737 007612 


104423 


MACRO M1113 14-JUN-64 15:55 
YTEXP - PRINT ERROR BYTES IN EXP /REC MESSAGE BUFFER 


045 
045 


TRAP 
ADG 
RTS 


PRBMSG: .ASCIZ 
PRBTOT: .ASCIZ 
EVEN 


PRBEXP: .WORD 
PRBREC: .WORD 
"SBTTL 


3 o 

; 

sPRINT ROUTINE 
3 

; INPUTS: 


F Ri 
Re 


BGNMSG 
"" JSR 
ENDMSG 
RAP 
.SBTTL 


sPRINT ROUTINE 
; 


3 
s INPUTS: 
é 
: Ri 
3 Re 
3 
3 — 
BGNMSG 
EXPBREC: : 
JSR 
E 
L10020;: 
TRAP 
.SBTTL 


3° 
3 

sPRINT ROUTINE 
a 

s INPUTS: 


$ 
F R4 


CSPNTX 

#6,SP 

PC sRETURN 

‘SNSA = =6OBYTE @8D28A = EXPD: SO3SA RECV: SO38A XOR: 803° 
‘sSNA NUMBER OF BYTES IN ERROR = #02’ 

0 3EXPD 

0 sRECV 

EXPREC - PRINT EXPD/RECV WORD DATA 


TO DISPLAY EXPD/RECV DATA 


RECEIVED DATA 
EXPECTED DATA 


EXPREC 


PC ,PRIXOR sPRINT THE DATA 


C$MSG 
EXPBREC - PRINT EXPD/RECV BYTE DATA 


TO DISPLAY BYTE EXPD/RECV DATA 


RECEIVED DATA BYTE 
EXPECTED DATA BYTE 


EXPBREC 

PC ,,PRIBXOR sPRINT THE DATA 
C$MSG 

RAMERR - PRINT RAM AND PACKET DATA 


TO DISPLAY RAM/PACKET DATA 


POINTER TO COMMAND PACKET 





Mi - GLOBAL AREAS 


1870 
1871 
1872 


- PRINT RAM AND PACKET DATA 


015510 

015510 

015510 004737 013776 
015514 

015514 

015514 104423 


015516 004737 010274 
015522 004737 013776 


015 
015526 104423 


MACRO M1113 14-JUN-84 15:55 


sIMPLICIT INPUTS: 
RAMDATA DATA AS READ FROM THE RAM 
RAMSIZ NUMBER OF BYTES IN PACKET 
IF RAMSIZ=*0 THEN DEFAULT TO 8. 
IMPLICIT OUTPUTS: 


RAMSIZ SET TO 0 


RAMERR 
RAMERR: : 
JSR PC ,PRAMPKT sPRINT RAM/PACKET DATA 
ENOMSG 
L10021: 
TRAP C$MSG 


-SBTTL RAMTADD - PRINT TEST ADDRESS, RAM AND PACKET DATA 
3¢ 


;PRINT ROUTINE TO DISPLAY RAM/PACKET DATA 


3 

s INPUTS: 

3 

3 Ra POINTER TO COMMAND PACKET 

3 

;IMPLICIT INPUTS: 
RAMDATA DATA AS READ FROM THE RAM 
RAMSIZ NUMBER OF BYTES IN PACKET 

IF RAMSIZ=0 THEN DEFAULT TO 8. 

ERRHI HIGH ORDER TEST ADDRESS 
ERRLO LOW ORDER TEST ADDRESS 


IMPLICIT OUTPUTS: 
RAMSIZ SET TO 0 


BGNMSG RAMTADD 

RAMTADD: : 
JSR PC ,PRITADD sPRINT TEST ADDRESS 
JSR PC ,PRAMPKT sPRINT RAM/PACKET DATA 
ENDMSG 

L10022 
TRAP C$MSG 


-SBTTL RAMEXP - PRINT RAM EXPD/RECV DATA 


3° 
3 

sPRINT ROUTINE TO DISPLAY EXPD/RECV DATA 
3 

s INPUTS: 


; 
; Ri RECEIVED DATA 
; R2 EXPECTED DATA 


SEQ 0071 





TSV3 - GLOBAL AREAS 
RAME XP 


MACRO M1113 14-JUN-84 15:55 


- PRINT RAM EXPD/RECV DATA 


015576 
015600 


1 

1925 015700 
015700 

1926 015700 

1927 015702 


; R4 
3 - 
BGNMSG 
RAMEXP: ; 
042701 177400 BIC 
042702 177400 BIC 
004737 010066 JSR 
004737 007742 JSR 
ENOMSG 
L10023: 
104423 TRAP 
SBTTL 
3¢ 
H 
sPRINT ROUTINE 
3AND TIMER A,B 
ry 
3; INPUTS: 
3 
; R1 
; R2 
So 
BGNMSG 
TIMEXP: : 
PRINTX 
012746 015600 MOV 
012746 000001 MOV 
0610600 MOV 
104415 TRAP 
062706 000004 ADO 
004737 007742 JSR 
ENDMSG 
L10024: 
104423 TRAP 
045 116 045 TIMSGO: .ASCIZ 
.EVEN 
. SBTTL 
3° 
° 
sPRINT ROUTINE 
3 
3; INPUTS: 
3 
$ R1 
$ Re 
H 
5 = 
BGNMSG 
BADSSR: : 
010246 MOV 
042702 177400 BIC 





CONTROLLER RAM ADDRESS 


RAME XP 

@tC<377>,R1 sSAVE EXPD RAM DATA BYTE 
@tC<377>,R2 sSAVE EXPD RAM DATA BYTE 
PC ,PRIRAM sPRINT THE RAM ADDRESS 
PC ,PRIXOR sPRINT THE DATA 

C$MSG 

TIMEXP - PRINT TIMER A,B AND EXP/REC 


TO DISPLAY EXPD/RECV DATA 
HEADER MESSAGE 


RECEIVED CATA 
EXPECTED DATA 
TIMEXP 
@TIMSGO sPRINT HEADER 
@TIMSGO, -( SP) 

#1,-CSP) 
SP ,RO 
CSPNTX 

04 ,SP 

PC ,PRIXOR sPRINT THE DATA 

C$MSG 

‘gNSA TIMER A STATUS IS IN BIT 3eNSA TIMER B STATUS IS IN BIT 2’ 


BADSSR - PRINT TSSR ERRORS ON DATA TRANSFERS 
FOR TSSR ERRORS ON DATA TRANSFERS 


CONTENTS OF TSSR 
DATA WRITTEN (8 BITS) 


BADSSR 
R2,-(SP) sSAVE DATA TRANSFERRED 
#177400 ,R2 sGET JUST ONE BYTE 


16 


} 
TSV3 - GLOBAL AREAS MACRO M1113 14-JUN-84 15:55 SEQ 0073 | 
_BADSSR - PRINT TSSR ERRORS ON DATA TRANSFERS | 
1928 015706 PRINTB @XFERASC,R2 
015706 010246 MOV R2, -(SP) 
015710 012746 015740 MOV @XFERASC, -( SP) ! 
015714 012746 000002 MOV @2,-(SP) 
015720 010600 MOV SP ,RO 
015722 104414 TRAP CSPNTB 
015724 062706 000006 ADD #6, SP 
1929 015730 012602 MOV (SP)+,R2 ;RESTORE R2 
1930 015732 004737 006024 JSR PC ,PRITSSR sDECODE TSSR CONTENTS 
1931 015736 ENOMSG 
015736 110025: 


015736 TRAP C$MSG 
1932 015740 045 116 04S XFERASC: -ASCiZ ‘SNSA Date Trensferred = #03’ 
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TSV3 - GLOBAL AREAS MACRO M1113 14-JUN-84 15:55 SEQ 0074 
GLOBAL SUBROUTINES SECTION 

1934 .SBTTL GLOBAL SUBROUTINES SECTION 

He 

1 3¢ 

1937 : THE GLOBAL SUBROUTINES SECTION — THE SUBROUTINES 

1938 ; THAT ARE USED IN MORE THAN ONE TEST 

1939 8-- 

1940 -SBTTL SOFINIT - SOFT INITIALIZE OF CONTROLLER 

1941 

1942 :¢ 

1943 3 

1944 sROUTINE TO DO A SOFT INITIALIZE OF THE CONTROLLER 

1945 3B8Y WRITING INTO THE TSSR REGISTER. AFTER THE INIT, 

1946 3;THE TSSR REGISTER IS TESTED FOR ERRORS. ANY ERRORS 

1947 ;DETECTED SHOULD BE TREATED AS DEVICE FATAL ERRORS. 

1948 3 

1949 ; INPUTS: 

1950 3 

1951 F RS ADDRESS OF FIRST REGISTER 

1952 3 

1953 ;OUTPUTS: 

1954 

1955 ; RO CONTENTS OF TSSR, IF ERROR 

1956 3 CARRY SET IF INIT WAS OKAY 

1957 ; CLEAR IF FATAL ERROR 

1958 3 

1959 ;CALLING SEQUENCE: 

1960 ; 

1961 3 MOV @ADDRESS .RS 

1962 3 JSR PC ,SOF INIT 

1963 3 BCS CONTINUE 

1964 F ERROF ;REPORT FATAL ERROR 

1965 3 

1966 s- 

1967 

1968 015774 SOF INIT: : 

1969 015774 SAVREG s SAVE THE REGISTERS 

1970 016000 012765 000000 000002 MOV 00, —_ : OO THE INIT. 

1971 016006 004737 016250 JSR PC ,WAIT 3; WAIT FOR SSR 

1972 016012 016500 000002 MOV TSSRCRS), RO 3sGET THE TSSR REGISTER 

1973 016016 010004 MOV :TSSR CONTENTS 

1974 016020 042704 176277 BIC OeCCHIADOR!OFL>, R4 

1975 016024 052704 002200 BIS @SSR!NBA,R4 3R4 HAS EXPECTED CONTENTS 

1976 016030 020400 CMP R4,RO sONLY EXPECTED BITS SET ? 

1977 016032 001402 BEQ 5$ sBRANCH IF OKAY 

1978 016034 000241 mt ;CLEAR THE CARRY FOR ERROR 

1979 016036 000401 BR 10% 3G0 TO EXIT 

1980 016040 000261 5$: SEC ;SET THE CARRY BIT 


1981 016042 000207 10%: RTS PC ;RETURN TO CALLER 
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TSv3 - GLOBAL AREAS MACRO + ag 14-JUN-64 15:55 SEQ 0075 
CHKAMB CHECK TSSR FOR AMBIGUITY 
1983 .SBTTL CHKAMB - CHECK TSSR FOR AMBIGUITY 
1984 
1985 :¢ 
1986 3 
1987 ;THIS ROUTINE TESTS THE CONTENTS OF THE TSSR REGISTER 
1988 3FOR AMBIGUITY 
1989 ; | 
1990 ; INPUT: 
1991 o j 
1992 3 RO CONTENTS OF TSSR 
1993 3 i 
1994 sOUTPUT: 
1995 ; 
1996 3 RO CONTENTS OF TSSR } 
1997 ; | 
1998 3 CARRY SET - NO AMBIGUITY 
1999 3 CLR - AMBIGUOUS CONTENTS 
2000 3 
2001 s- 
2002 
2003 016044 CHKAMB : 
2004 016044 SAVREG sSAVE THE GENERAL REGISTERS 
2005 016050 010004 MOV RO,R4 sCONTENTS OF TSSR 
2006 016052 032700 100000 BIT @SC ,RO iTS BIT 15 SET ? 
2007 016056 001004 BNE 5$ sBRANCH IF YES 
2008 016060 032700 174077 BIT @*C<MBALOFL !SSRIHTADOR> RO sANY OTHER BITS SET ? 
2009 016064 001023 BNE sMUST BE AN ERROR 
2010 016066 000424 BR ass sRETURN WITH > 
2011 016070 032700 000200 5$: BIT @SSR RO iIS READY BIT SET ? 
2012 016074 001011 BNE 10% sBRANCH IF READY BIT IS ate 
2013 016076 032700 000040 BIT #BITS,RO s1S FATAL ERROR BIT SET 
2014 016102 001414 BEQ 408% a IF NOT 
2015 016104 042704 177761 BIC @tCTERCLS .R4 sCLEAR ALL BUT TERMINATION CODE 
2016 016110 020427 000016 CMP R4,016 sALL THREE BITS MUST BE SET 
2017 016114 001007 BNE 40% sERROR IF NOT SET 
2018 016116 000410 BR 45% 10K IF ALL ARE SET 
2019 016120 032700 000040 10%: BIT @BITS,RO 3IS FATAL "2 BIT SET ? 
2020 016124 001405 BEQ 45% sERROR BIT IS SET WITH SSR 
2021 016126 032700 000006 BIT #8IT2!:BIT1,RO iTS THIS A FUNCTION REJECT 
2022 016132 001002 BNE 45$ 36R, IF TSSR IS OK 
2023 016134 000241 40$: CLC sAMBIGUOUS CONTENTS 
2024 016136 000401 BR 50% 
2025 016140 000261 45$: SEC sSHOW SUCCESS - NO AMBIGUITY 


2026 016142 000207 50$: RTS PC sRETURN TO CALLER 





TSV3S - GLOBAL 


2028 
2029 


2048 


016144 
016145 


016146 
016150 


L6 


AREAS MACRO M1113 14-JUN-84 15:55 
ENAINT,OSBINT - ENABLE/DISABLE INTERRUPTS 


012766 000340 000002 
000002 


po tod 000001 002224 
132737 000001 016144 
152737 000001 016145 


-SBTTL ENAINT,OSBINT - ENABLE/DISABLE INTERRUPTS 


; 

; DEFAULT DISPLAY INTERRUPT HANOLERS. 

; IF DISPLAY TIME-OUT, REPORT DEV FATAL, AND ABORT PASS. 
; OTHERWISE, SAVE DPU REGISTERS AND DISMISS. 

; 


; BIT DEFINITIONS FOR “INTMASK” AND “INTFLAG” BYTES: 
; 


IOKCKIN=BIT7 s DON'T CHECK FOR BAD INTERRUPTS -- TEST WILL. 


IOKSTP=BITO s EXPECT “STOP” INTERRUPT. 
; 
s INTERRUPT MASK -- SAYS EXPECTING INTERRUPTS 
INT VE © 


MASK : 
;INTERRUPT FLAG -- SAYS +s GOT ONE (IF POSITIVE) 
INTFLAG: .BYTE 


s SAVED pee * VECTOR: 

INTVEC: .WORD 

sSAVE CPU PC 

INTCPC: .WORD 0 

sSUBROUTINE TO ENABLE INTERRUPTS: 

ENAINT: MOV RO, -CSP) sSAVE R 
MOV IVEC RO sGET POINTER TO VECTORS 
MOV @INTR,CRO)+ ;SET UP INTERRUPT VECTOR 
MOV @PRIO7,(CRO)+ 


MOV (SP)+,RO ;RESTORE RO 
MOV (SP), -(SP) 
MOV @0,2(SP) ;SET CPU TO LEVEL 0 
RTI 
;SUBROUTINE TO DISABLE INTERRUPTS (RAISE PRIORITY TO LEVEL 7) 
DSBINT: MOV (SP), -(SP) 
HOV @PRIO7, 2(SP) 
\SBTTL INTR  - INTERRUPT HANDLERS 
a BGNSRV INTR ;DEFINE INTERRUPT ENTRY 
“" Mov @1, INTRECV :SET FLAG TO SHOW INTERRUPT RECEIVED 
CLRB = INTFLAG ;CLEAR FLAG TO SAY WE GOT INTERRUPT 
BrTe @TOKSTP INTMASK rEXPECTING STOP INTERRUPT? 


BR IF 
BISB SIOKSTP, INTFLAG sNO. SET THE ERROR FLAG. 


i SAVE REGISTERS, MSG BUFFER, ETC. 
; ENOSRV 
" RTI 


L10026 


SEQ 0076 
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TSV3 - GLOBAL AREAS MACRO M1113 14-JUN-84 15:55 SEQ 0077 
| WAITF - WAIT FOR S uesYSTEM READY 
2077 .SBTTL WAITF - WAIT FOR SUBSYSTEM READY 
2078 3 
2079 ; SUBROUTINE TO WAIT FOR THE SUBSYSTEM READY FLAG 
2080 PF 
2081 s INPUTS: 
2082 3 
2083 F RS ADORESS OF FIRST DEVICE REGISTER - 
2084 : 
2085 sOUTPUTS: 
2086 3 
2087 ; RO CONTENTS OF LAST TSSR READ 
2088 ; CARRY SET - READY BIT SET 
2089 ; CLR - TIMEOUT WAITING FOR READY 
2090 F 
2091 016250 000401 WAITF:: BR i$ sNOP WHEN SUPER FIXED 
2092 016252 BREAK : 00 A SUPVSR BREAK FIRST. 
016252 104422 TRAP C$BRK 
2093 016254 012746 011000 1%: MOV #11000, -( SP) 325-APRIL-83 REV B - 1100 MSEC TIMER 
2094 016260 016500 000002 2s: MOV TSSRCRS),RO sREAD THE TSSR REGISTER 
2095 016264 105700 TSTB RO sTEST FOR READY BIT SET 
2097 016266 100420 BMI 3$ s EXIT ON STOP FLAG. 
2098 016270 DELAY 1 3 WAIT 100 USEC 
016270 012727 000001 MOV @1,(PC)>+ 
016274 000000 -WORD O 
016276 013727 002116 MOV LSOLY,(PC)+ 
016302 000000 -WORD O 
016304 005367 177772 DEC we 
016310 001375 BNE 
016312 005367 177756 DEC 32 PC) 
016316 001367 BNE .-20 
2099 016320 005316 DEC (SP) sREDUCE DELAY COUNT 
2100 016322 001356 BNE 2s IRETRY UNTIL TIMER EXPIRES 
2101 616324 000241 CLC ; C = 0, CONTROLLER STILL RUNNING.. 
2102 016326 000401 6R 4$ 3...OR HUNG-UP AFTER 300 MSEC. 
2103 016330 000261 3%: SEC 3 ¢ * 1, CONTROLLER IS STOPPED. 
2104 016332 005326 4$: DEC (SP )-« }RESTORE STACK WITHOUT CHANGING CARRY BIT 
2105 016334 000207 RTS PC 


ee 
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CHKTSSR - 


CHECK TSSR FOR RE 


2131 016372 
2132 016374 


2 
2143 016376 


2152 016430 
2153 016432 
2154 016436 
2155 016440 

016440 

016444 
2156 016446 
2157 016450 
2158 016452 
2159 016454 


016250 
016044 
100000 
074000 


016430 


016440 


ar M1113 14-JUN-864 15:55 


N6 
SEQ 0078 
.SBTTL CHKTSSR - CHECK TSSR FOR READY 


; THIS ROUTINE WAITS FOR READY IN THE TSSR 
;AND TESTS FOR AMBIGUOUS BIT SETTINGS IN TSSR. 


$ 

: INPUT: 

3 RS ADDRESS OF CSR REGISTERS 

8 

; OUTPUT: 

PF RO CONTENTS ~¥ TSSR 

; CARRY SET - OKAY 

3 CLR - NOT READY AMBIGUOUS, OR SC SET 

- 

CHKTSSR: 
JSR PC ,WAITF sWAIT FOR READY 
BCC 20% sBRANCH IF TIME OUT 
JSR PC, CHKAMB sTSSR AMBIGOUS? 
BCC 10% ;6R IF YES 
BIT ° sSPECIAL CONDITION SET? 
BEQ 15% ;BR 
BIT @<SCE ! BIE! RMR! NXM> ,RO ;ANY ERROR BITS SET? 
BEQ 15% ;BR IF NO 

10$: CLC ;SET FAILURE 
BR 20% F 

15%: sec ;SET SUCCESS 

208: RTS PC s;RETURN TO CALLER 
.SBTTL XNXM - CHECK FOR NONEXISTENT MEMORY 


; ROUTINE TO TEST FOR A NEXM IN THE RANGE (R1) THRU (R2). 
ON RETURN, IF “CC” = 1, (R1) = NEXM ADDRESS. 
“C” = 0, ALL ADDRESSES OK. 


CALL: MOV ADR1,R1 
MOV ADR2,R2 


JSR PC,NXM 
RETURN sTEST “C” AND PROCEED. 
XNXM: MOV 02% , 804 s SET BUSERR VECTOR. 
MOV @PRIO4 , 206 
CLR R3 FLAG. 
1$: TST (R1) ;TEST THE ADDRESS(ES). 


sIF ANY TRAP, CONTINUE AT 2$. 
CMP R1,R2 ;OTHERWISE, CONTINUE HERE. 
BEQ 3% :@R IF FINISHED _— NEXM'S). 


ADD @2,R1 sSET NEXT ADORESS. 
BR 1s s...AND CONTINUE. 
2s: COM 3 GOT ONE, SET FLAG... 
03% ,(SP) 


MOV 
RTI +...AND DISMISS INTERRUPT... 


3$: CLRVEC 04 ;...AND GIVE BACK THE VECTOR. 
MOV 04,RO 
TRAP CS$CVEC 
TST R3 sDID WE CATCH ONE 7? 
BEQ +4 sNO, “C” = 0, SKIP NEXT. 
SEC YES, "C” = 1, (R1) = NEXM ADOR. 
RTS PC 


—_— —- - ~~ --- ee - Ct 


=e oe 


ee a Oe + ee ee 


B7 





ee ee a a ee ee eee ee -  e 


TSV3 - GLOBAL AREAS = MACRO M1113 14-JUN-64 15:55 S€9 0079 
TSTLOOP - CHECK ITERATION COUNT 
2161 .SBTTL TSTLOOP - CHECK ITERATION COUNT 
2162 ° 
2163 ; SUBROUTINE TO EXECUTE TEST ITERATIONS. 
5164 EXIT WITH “C~ SET IF LOOPS ALLOWED AND LOOP COUNT NON-ZERO. | 
2165 LOOP COUNTER IS SET BY “BEGIN. TEST” MACRO. 
2166 
2167 ; CALL: LOOPTO ARG 
21 3 
2169 016456 TSTLOOP: : | 
5170 016456 005737 002170 TST NOITS s ITERATIONS INHIBITED? 
2171 016462 001006 BNE is + YES. 
2172 016464 005737 002204 TST NO. 
2173 016470 100403 BMI is sLOOPS DISALLOWED IN QUICK PASS. 
2174 016472 005337 002216 DEC —« LOOPCNT ; BUMP LOOP COUNTER. 
2175 016476 001002 BNE Oso 
2176 016500 000241 18 CLC sLOOP DISALLOWED, OR DONE. 
2177 016502 000401 BR 38 
2178 016504 000261 28 SEC :LOOP ENABLED. 
2179 016506 000207 3s RIS —s «PC 
2181 .SBTTL TSTSETUP - PRINT TEST NAME AND INIT ERROR COUNTS 
t°¢ 
2183 : PRINT THE NUMBER AND NAME OF EACH TEST AS ME GO ALONG. 
2184 ; INCREMENT “TESTK* TO INDICATE THE NUMBER OF TESTS 
2185 3 IN THE CURRENT RUN ; 
2186 ; CLEAR THE ERROR COUNTER AND SIGNATURE EXTENSION FLAGS 
b 
2188 INPUT: 
2189 3 
2190 ; RO POINTER TO TEST ID ASCIZ STRING 
3 
2192 ; OUTPUT: 
2193 3 
2198 ; RS ADDRESS OF FIRST DEVICE REGISTER 
c 
2196 }IMPLICIT OUTPUTS: 
3 
2198 ; TSTCNT UPDATED TO COUNT TESTS PERFORMED SINCE START OR RESTART 
3 
2200 SIDE EFFECTS: 
i 
2202 ; INTERRUPT LEVEL IS RASIED TO LEVEL OF 
2203 ; THE DEVICE UNDER TEST 
2204 3 
2205 ‘- 
2206 
2207 016510 TSTSETUP: : 
2208 016510 010046 MOV —s- RO, -( SP) sSAVE THE TEST ID MESSAGE 
016512 005037 003154 CLR AG ; CLEAR “SOFT INIT" FLAG 
2210 016516 005037 016 CLR ; CLEAR LOCAL ; 
2211 016522 005037 005772 CLR Ss EXTA ; CLEAR ERROR EXTENSION FLAG. 
2212 016 105037 016144 CLRB T CHECK ERROR) 
2213 016532 013700 MOV —sUNITN, RO ; GET THE UNIT NUMBER, 
2214 016536 ASL —s«éRO : AND MAKE IT A WORD OFFSET. 
2215 016540 005737 003114 TST  NODEV BID STARTUP FIND THE DEVICE? 
2216 016544 001430 SEQ st ; OR IF YES 
2217 016546 100010 BPL 38 ; BR IF NOT IDLE 
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TSV3 - GLOBAL AREAS MACRO M1113 14-JUN-64 15:55 0080 
TSTSETUP - PRINT TEST NAME AND INIT ERROR COUNTS _ 
2218 016550 052760 160000 003176 ers #160000, ERTABL(RO) ; FLAG ERROR IN THE ERROR TABLE 
2219 016556 ERROF 1,NXR,NXRERR  ; NO DEVICE HERE -- PRINT IT 
016556 104455 TRAP —- CSEROF 
016560 000001 .WORD 1 
016562 003740 “WORD NXR 
016564 005736 “WORD  NXRERR 
016566 000407 BR 28 
2221 016570 052760 160001 003176 3%: BIS @160001 ,ERTABL(RO) FLAG ERROR IN THE ERROR TABLE 
2222 016576 ERROF  2,NOINIT ) DEVICE NOT IDLE 
016576 104455 TRAP  CSEROF 
016600 .WORD 2 
016602 004335 "WORD NOINIT 
016604 “WORD 
2223 016606 012737 177777 003112 2%: MOV @-1,0UFLG ; OROP THE UNIT 
2224 016614 DODU TN 
016614 013700 002202 MOV UNITN, RO 
01 104451 TRAP C0000 
2225 016622 DOCLN ; ABORT THE PASS 
016622 104444 TRAP  CS0CLN 
2226 016624 000423 BR Ss 
2228 016626 as: RFLAGS s GET THE OPERATOR FLAGS. 
C16626 104421 CERFLA 
2229 016630 032700 001000 BIT z ; PRINT THE TEST NUMBERS? 
2230 016634 001412 BEQ 18 ; BR IF NO 
2231 016636 011600 4OV (SP),RO 1GET THE ID MESSAGE 
016640 PRINTF OTNAM, ;OISPLAY THE TEST ID 
016640 010046 MOV RO, -( SP) 
016642 012746 016704 MOV OTNAM, -(SP) 
016646 012746 000002 MOV @2,-(SP) 
016652 010600 MOV SP RO 
016654 104417 TRAP = CSPINTF 
016656 062706 ADO 66.SP 
2233 016662 005237 002214 1s: INC TSTCNT ; BUMP TEST COUNTER. 
2234 016666 SETPRI I ;PRIORITY THAT OF DEVICE 
01 013700 002212 MOV IPRI,RO 
016672 104443 TRAP  —- CSSPRI 
2235 016674 005726 S$; TST (SP) 1FIX UP THE STACK 
2236 016676 013705 002206 HOV CSRADOR RS ; ADORESS OF TSV REGISTERS ON UNIBUS 
2237 016702 000207 RTS PC 
2238 016704 045 123 045 TNAM: -ASCIZ 'GSSTSA Test’ 
2240 ‘Sore TSTEND - PRINT ERRORS RECEIVED 
] 
2242 ; AT END OF EACH TEST, PRINT THE NUMBER OF ERRORS RECEIVED 
2243 ; IF NORMAL ERROR REPORTING IS DISABLED (FLA: IER). 
2244 3 
2245 016720 TSTEND: RFLAGS 
016720 104421 TRAP CSRFLA 
016722 030027 020000 BIT RO, OIER 
2247 016726 001412 BEQ ; BR IF “IER” NOT SET. 
2248 016730 PRINTF ; PRINT ERROR COUNT. 





TSV3 - GLOBAL AREAS MACRO M1113 14-JUN-864 15:55 SEQ 0081 
TSTEND - PRINT ERRORS RECEIVED 
016750 062706 000006 ADD 06, SP i 

2249 016754 000207 18: RTS PC 


ERRK: 0 s LOCAL ERROR COUNT. 
2252 016760 045 101 040 ESUM:  .ASCIZ /sA SOSA ERRORS/ 
2238 016777 105 122 122 EMAXDU: -ASCIZ ZERROR LIMIT REACHED -- DROPPING UNIT/ 
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TSv3 - GLOBAL AREAS MACRO M1113 14-JUN-64 15:55 SEQ 0082 
INCERK INCREMENT LOCAL ERROR COUNT 
2256 .SBTTL INCERK - INCREMENT LOCAL ERROR COUNT 
2257 s¢ 
2258 ; ROUTINES TO INCREMENT LOCAL ERROR COUNT AND CHECK FOR LIMIT: 
2259 t- 
2260 017044 005237 016756 INCERK: INC ERRK s INCREMENT LOCAL ERROR COUNT 
2261 017050 010046 MOV RO, -( SP) 3 SAVE RO 
2262 017052 013700 002202 MOV UNITN,RO 3 GET UNIT NUMBER, 
2263 017056 006300 ASL RO 3 ... AND MAKE IT A WORD OFFSET. 
2264 017060 062700 003176 ADO @ERTABL ,RO + RO GETS ADORESS OF ERROR TABLE ENTRY. 
2265 017064 005210 INC CRO) s INCREMENT THE DEVICE ERROR COUNT 
2266 017066 032710 007777 BIT @7777,CRO) s OI0 WE OVERFLOW THE FIELD? 
2267 017072 001001 BNE i$ s BR IF NO. 
2268 017074 005310 DEC CRO) s YES -- BACK IT W TO 7777. : 
2269 017076 012600 18: MOV (SP )+,RO s RESTORE 
re 017100 000207 RTS PC 3 RETURN TO CALLER. 
2272 017102 010046 CKEMAX: MOV RO, -(SP) 3s SAVE RO 
2273 017104 013700 002202 MOV UNITN,RO s GET UNIT NUMBER ° 
2274 017110 006300 ASL RO 3 ... AND MAKE IT A i OFFSET 
171 016000 003176 ERTABLC(RO),RO s GET ERROR TABLE ENTRY 
2276 017116 042700 170000 BIC #1 ° 3s EXTRACT ERROR COUNT FIELD 
2277 017122 020037 002174 RO, x s IS GLOBAL LIMIT EXCEEDED FOR THIS UNIT? 
2278 017126 103004 BHIS 1$ ; BR IF YES 
2279 017130 023737 016756 002172 CMP ERRK , LERRMAX : IS LOCAL LIMIT EXCEEDED FOR THIS TEST? 
2260 017136 103417 BLO 2s ’ F . 
2261 017140 1%: RFLAGS 3; GET OPERATOR FLAGS 
017140 104421 TRAP CSRFLA 
2262 017142 032700 000040 BIT @IOu, 3: IS DROPPING INHIBITED? 
2283 017146 001013 BNE 8 ; BR IF YES 
2284 017150 012737 177777 003112 MOV @-1,0UFLG 3 NO -- DROP THE UNIT 
2285 017156 E 4,EMAXDU 
017156 104455 TRAP CSERDF 
017160 .- WORD 
017162 016777 .WORD EMAXDU 
7164 -WORD O 
2286 017166 DODU 
7166 013700 002202 UNITN,RO 
017172 104451 TRAP cs 
2287 017174 DOCLN F 
7174 104444 TRAP CSOCLN 
2288 017176 012600 2s: MOV (SP)+,RO s RESTORE RO 
2289 017200 000207 RTS PC 3 RETURN TO CALLER 
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TSV3S - GLOBAL AREAS MACRO M1113 14-JUN-64 15:55 SEQ 0083 
CcKOROP - CHECK IF UNIT SHOULD BE DROPPED 
2291 .SBTTL CKDOROP - CHECK IF UNIT SHOULD BE DROPPED 
2292 3 
2293 ; CHECK IF UNIT SHOULD BE DROPPED 
2e94 3 
2295 017202 010046 CKDROP: MOV RO, -( SP) 
2296 017204 FORCERROR 1$,NOTSSR 
2297 017214 RFLAGS RO 
017214 104421 TRAP CSR=LA 
2298 017216 032700 000C40 BIT @IDU,RO 
2299 017222 001010 BNE 1$ 
2300 017224 011600 MOV (SP),RO 
2301 017226 012737 177777 003112 MOV #-1,0UFLG 
2302 017234 DODU UNITN 
017234 013700 002202 MOV UNITN,RO 
017240 104451 TRAP Cs000uU 
2303 017242 DOCLN sABORT THE PASS 
017242 104444 TRAP CSOCLN 
2304 017244 012600 1$: MOV (SP)+,RO 
2305 017246 000207 RTS PC 
2306 
2307 
toe -SBTTL CONFIG - DETERMINE CONFIGURATION OF SYSTEM 
a 
ey ; SUBROUTINE - DETERMINE CONFIGURATION OF TSVOS SYSTEM. 
3 
2312 017250 CONFIG: 
2313 017250 004737 015774 JSR PC, SOF INIT 
2314 017254 000207 RTS PC 
coos .SBTTL KTON,KTOFF - ENABLE/DISABLE MEMORY MANAGEMENT 
6 
oH : SUBROUTINE - ENABLE MEM MGT. 
3 
2319 017256 005737 003132 KTON: TST KTFLG 3 GOT KT? 
2320 017262 001403 BEQ 1% 3 NO. 
2321 017264 012737 000001 177572 MOV #1,SRO s YES. ENABLE KT11. 
2322 017272 000207 1%: RTS PC 
2323 
2324 3 
oo s SUBROUTINE - DISABLE MEM MGT. 
ry 
2327 017274 005737 003132 KTOFF: TST KTFLG 3; GOT KT11? 
2328 017300 001405 BEQ is 3 NO. 
2329 017302 000240 ROP 
2330 017304 000240 wOP 
2331 017306 012737 000000 177572 MOV 00, SRO s OISABLE KT. 


2332 017314 000207 18: RTS PC 


2352 
2353 017316 


2 

2364 017372 
2365 017374 
2366 


2370 017414 
2371 017416 
2372 017420 


238 

2388 017422 
2389 017422 
2390 017426 004737 017274 


TSVS - GLOBAL AREAS 
SETMAP 


G/ 


MACRO M1113 14-JUN-84 15:55 SEQ 0084 
- SETUP PAR6 MAPPING 


003132 


-SBTTL SETMAP - SETUP PAR6 MAPPING 
3° 
3 
sTHIS ROUTINE SETS UP KERNEL PARG6 TP 


HANOLE 
sAN 186 BIT ADDRESS. THE OFFSET INTO THE PAGE 
IS RETURNED BIASED TO PARE. 


H 

s INPUTS: 

i 

; RO HIGH ORDER ADORESS BITS 

: Ri LOW ORDER ADDRESS BITS 

; OUTPUTS 

; 

; RO OFFSET INTO BLOCK WITH PAR6 BIAS (I.E. THE ADDRESS) 

: CARRY SET IF SUCCESS 

; CLR IF ERROR 

he 

SETMAP: 
SAVREG ;SAVE R1-R4 UNTIL NEXT RETURN 
TST KTFLG sSYSTEM HAVE ABOVE 28K? 
BEQ 10$ :8R IF NO 
MOV R1.R2 ;SAVE LOW ORDER BITS 
ASR sCONVERT WORD ADORESS TO 32W BLOCKS 
ROR R1 ;MAKE IT DOUBLE PRECISION 
BIC @177,R1 ;ALINE FOR LOWER 4K BOUNDARY 
CMP R1,KTFLG sMIGMER THAN EXISTING MEMORY? 
BHIS 10% iR IF YES 
MOV R1, SEXIPARG ;SETUP MAPPING REGISTER PARG 
BIC @160000 ,R2 sSETUP DISPLACEMENT IN PAGE 
ADD #140000 ,R2 ;ADO IN PAR6 BIAS 
MOV R2,RO ;RETURN IN RO 
SEC sSET SUCCESS 
BR 15% 3 

10$: CLC :SET FAILURE 

15$: RTS PC : 
.SBTTL FILLMEM - FILL MEMORY WITH BACKGROUND PATTERN 

& 

+” FILL MEMORY WITH A BACKGROUND PATTERN 

. 

; INPUTS: 

RO = BACKGROUND PATTERN 

: FREE © FIRST LOCATION AVAILABLE TO DIAGNOSTIC 

: KTFLG = SET TO HIGHEST MEMORY LOCATION IF > 28K. 

; 

; OUTPUTS: 

3 

; NONE 

g° 

i 

FILLMEM 

G sSAVE Ri-RS UNTIL NEXT RETURN 

JSR PC .KTOFF ;DISABLE KT. 





2418 017606 
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FILLMEM - FILL 
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003124 
003126 


003132 
017256 
003152 


017316 
160000 
020000 
000200 
172354 
003144 
177572 
177761 
000016 
003146 


172354 


000020 
017542 
017274 


172354 
003132 


007600 


172516 


MEMORY WITH BACKGROUND PATT 


10%: 


35%: 


oR3 


Ri 
FRESIZ,R2 
R3,(R1)> 


AR6 
SEKIPARG .KTFLG 


50% 

35% 

SRO,R4 
0177761 ,R4 
#16 ,R4 


SEQ@ 0085 


sCOPY TEST PATTERN 
sGET FIRST FREE LOCATION 
OF FREE SPACE BELOW 28K. 


sHIGH ORDER S START 
sGET >26K START ADORESS CIN 32W BLOCKS) 


sCLEAR C BIT 
sCONVERT BLOCKS TO WORDS 
sMAKE IT DOUBLE PRECISION 


sSETUP PAR6 MAPPING REGISTER 
sSTORE TEST PATTERN IN >28K ADDRESS 
sEND OF PARG MAPPING AREA? 

s8R IF NO 

sBACKUP INTO PAR6 MAPPING BEGIN 
;POINT TO NEXT 4K BLOCK >286K. 

sEND OF MEMORY? 


KEEP GOING 
sREACHED 18 BITS? 
sYES 
sNO KEEP GOING 
3SET 22 BIT a epee 


sKEEP GOING ON E 
; DISABLE KT. 
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TSv3 - GLOBAL AREAS MACRO M1113 14-JUN-864 15:55 SEQ 
CMPMEM COMPARE MEMORY TO BACKGROUND PATTERN 0066 | 


i — 


2431 .SBTTL CMPMEM - COMPARE MEMORY TO BACKGROUND PATTERN 
2432 3° 
2433 : COMPARE MEMORY WITH A BACKGROUND PATTERN 
2434 : 
2435 ; INPUTS: 
2436 3 
2437 3 RO = BACKGROUND PATTERN 
2438 : FREE = FIRST LOCATION AVAILABLE TO DIAGNOSTIC 
2439 ; KTFLG = SET TO HIGHEST MEMORY LOCATION IF > 28K. 
2440 3 , 
2441 3; OUTPUTS: 
2442 3 
2443 : CARRY - SET IF NO ERROR 
2444 ; CARRY - CLR IF ERROR 
2445 3 
eet ; IMPLICIT OUTPUTS: 
3 
2448 ; ERRHI - ERROR HIGH ADORESS 
2449 3 ERRLO - ERROR LOW ADDRESS 
2450 ; EXPO - EXPECTED DATA 
2451 3 RECV - RECEIVED DATA 
2452 3° 
2453 017660 CMPMEM: 
2454 017660 SAVREG sSAVE R1-RS UNTIL NEXT RETURN 
2455 017664 010003 RO,R3S SCOPY a a 
2456 017666 004737 017274 JSR PC ,KTOFF sDISABLE K 
2457 017672 013701 003124 MOV FREE ,R1 3GET FIRST "bree LOCATION 
2458 017676 013702 003126 MOV FRESIZ,R2 sSIZE OF FREE SPACE BELOW 26K. 
2459 017702 020311 108: CMP R3,(R1) sFREE SPACE LOCATION EQUAL TO EXPD? 
2460 017704 001411 BEQ 15% s6R IF YES 
1 017706 010137 002240 MOV R1,ERRLO sSAVE ADORESS IN ERROR 
017712 36 CLR sNO HIGH ADORESS 
2463 017716 010337 002232 MOV XPD sSAVE EXPD FOR ERROR REPORT 
017722 011137 3 MOV (R1),RECV sSAVE RECV FOR ERROR REPORT 
2465 017726 000474 BR $ 3 
2466 017730 005721 15%: TST CR1)-+ sPOINT TO NEXT ADORESS 
2467 017732 005302 DEC Re sO00NE ALL MEMORY IN FREE SPACE? 
2468 017734 00 BGT 103 36R IF NO 
2469 017736 005737 003132 TST KTFLG s GOT KT? 
2470 017742 001472 BEQ 55% s NO. GET OUT. 
2471 017744 004737 017256 JSR PC ,.KTON s YES. ENABLE KT. 
2472 017750 CLR RO sHIGH ORDER ADORESS STAR 
od 017752 013701 003152 = pease IGET >26K START ADDRESS ( IN 32W BLOCKS) 
2475 ROL Ri sCONVERT BLOCKS TO WORDS 
2476 ROL RO sMAKE IT DOUBLE PRECISION 
2477 .ENDR 
2478 020006 042701 000177 BIC 4177,R1 sALINE 4K BOUNDARY 
2479 020012 010046 MOV »- (SP) sSAVE HIGH ORDER 
2480 020014 010146 MOV R1,-CSP) sSAVE LOW ORDER 
2481 020016 004737 017316 JSR PC, SETMAP ;SETUP PAR6 MAPPING REGISTER 
020022 010004 MOV RO,R4 sCOPY ADDRESS BIASED TO PAR6 
2483 020024 012601 MOV (SP)+,R1 sRESTORE LOW ORDER IN NON PAR6 FORMAT 
2484 020026 012600 MOV (SP)+,RO ;RESTORE HIGH ORDER IN NON PAR6 FORMAT 
2485 020030 020314 30%: CMP R3,(R4) sABOVE 28K LOCATION EQUAL EXPD? 
2486 020032 001411 BEQ 32% ;8R IF YES 
2487 020034 010037 002236 MOV RO, ERRHI sSAVE HIGH ORDER IN ERROR 





2539 020170 
2540 020172 
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010137 
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ARE MEMORY TO BACKGROUND PATTERN 


172354 
017274 


017274 


000012 


172354 
003132 


3¢ 


SEQ 0087 
R1,ERRLO sSAVE LOW ORDER IN ERROR 
R3,EXPD sSAVE EXPD FOR ERROR REPORT 
(Ra), RECV “ied RECV FOR ERROR REPORT 
é2, at SUPDATE NON PAR6 ADDRESS 
RO sMAKE IT DOUBLE a aire ADD 
@2,R4 sUPDATE PAR T ADORESS 
R4 , #160000 sEND OF PAR6 MAPPING AREA? 
30% s6R IF NO 
ones aid sBACKUP INTO PAR6 MAPPING BEGIN 


BOKIPARG, 
30% 
PC ,KTOFF 


60% 
PC ,KTOFF 


RTS PC 
-SBTTL REGSAV 


i 
sROUTINE TO 
s;SAVE R1 THROUGH RS ON THE STACK 


; CALLING SEQUENCE : 


JSR 


. REGISTERS. 


8 S THIS 


ROUTINE SHOULD 
sCALLED VIA A JSR PC INSTRUCTION 


REGSAV: 


RS,REGSA 


ONLY 


SSSS%S 


em) 
ge 
UPWNMrRYys VCUVUUY 


SSSSS 
DDDDD 


BOKIPAR6 ;POINT TO ae BLOCK >26K. 


KTFLG ;END OF ME 
IF 


sBR NO 
; TURN OFF MEMORY MAPPING 
sSET FAILURE 


; 
sTURN OFF MEMORY MAPPING 
s;SET SUCCESS 


- SAVE R1-RS ON STACK 


Vv 


sTHIS IS A COOROUTINE WHICH TRANSFER CONTROL BACK TO 
CALLING ROUTINE. AT 
THE RTS PC RETURNS CONTROL TO THIS ROUTINE TO RESTORE 


THE END OF THE CALLING ROUTINE, 


BE — FROM ROUTINES WHICH ARE 


TSV3_- GLOBAL 


GETPAT 


AREAS 
- GET 8 BIT PATTERN FROM OPERAT 


020230 
020232 


105 


IK 7 
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020230 


116 


-SBTTL GETPAT - GET 8 BIT PATTERN FROM OPERATOR 
3¢ 
sROUTINE TO REQUEST AN 8 BIT DATA PATTERN FROM THE OPERATOR 


3 
; INPUTS: NONE . 
PF 
;OUTPUTS: 
RO OCTAL NUMBER FROM THE OPERATOR 
;CALLING SEQUENCE : 
JSR PC ,GETPAT 
GETPAT: : 
SAVREG ;SAVE THE GENERAL REGISTERS 
1$: GMANID DATASC,PATDAT,O, 377, 0,377,NO 
TRAP C$GMAN 
BR 
.WORD PATDAT 
. WORD CODE 
-WORD ODATASC 
-WORD 377 
-WORD TSLOLIM 
.WORD TSHILIM 
100008: 
a is sRETRY IF ERROR 
MOV PATDAT,RO sDATA PATTERN FROM OPERATOR 
RTS PC s;RETURN TO CALLER 


3* 
sLOCAL DATA AREA 
3 - 


PATDAT: .WORD 0 3s TEMPORARY STORAGE FOR DATA 
124 DATASC: . — ‘ENTER DATA PATTERN’ 
. N 





—~— -— - ie oe ee ee eee: es oo ae. ~y 


L/ 


TSV3 - GLOBAL AREAS MACRO M1113 14-JUN-84 15:55 


GETSEL - ISSUE MENU AND GET OPERATOR RESPONSE | 
2569 .SBTTL GETSEL - ISSUE MENU AND GET OPERATOR RESPONSE 
2570 :¢ 
2571 sROUTINE TO ISSUE A MENU AND GET THE OPERATOR'S RESPONSE. | 
2572 3 
2573 ; INPUTS: 

2574 F RO ADDRESS OF ASCIZ STRING OF MENU 
2575 3 R1 MAXIMUM ALLOWABLE OPERATOR RESPONSE 
2576 F 
2577 ;OUTPUTS: 
2578 3 NUMBER OF THE OPERATOR'S SELECTION 
2579 3° 
2580 020256 GETSEL:: 
2581 020256 SAVREG sSAVE GENERAL REGISTERS 
| 020262 010002 MOV RO,R2 sSAVE THE MENU ADDRESS 
2583 020264 010203 1%: MOV R2,R3 sSTART OF MENU STRING 
| 020266 005713 2s: TST (R3) sEND OF ASCII ? 
2585 020270 001412 BEQ 3% sBRANCH IF ALL LINES DISPLAYED 
2586 020272 PRINTF @SELASC,(R3)+ sDISPLAY THE MENU 
020272 012346 MOV (R3)+,-CSP) 
020274 012746 020442 MOV L »- (SP) 
| 020300 012746 000002 MOV @2,-(SP 
020304 010600 MOV »RO 
020 104417 TRAP CSPNTF 
| 020310 062706 000006 ADD #6 ,SP 
| 2587 020314 000764 BR 2s 
| 2588 020316 3$: GMANID MENASC .MENRES,.D,-1,0,-1.NO 
020316 104443 TRAP C$GMAN 
| 020320 000406 BR 10001$% 
020322 020476 .WORD MENRES 
020324 .WORD TSCODE 
020326 020447 . WORD sc 
020330 177777 . WORD -1 
020332 000000 -WORD TSLOLIM 
020334 177777 .WORD TSHILIM 
020336 10001$%: 
2589 020336 BNCOMPLETE i$ sRETRY IF ERROR 
020336 103352 Cc is 
020 013700 020476 MENRES ,RO ;GET THE OPERATOR'S REPLY 
2591 020344 020001 RO,R1 sCOMPARE TO MAXIMUM ALLOWED 
2592 020346 101411 os 5$ sBRANCH IF OK 
2593 020350 PRINTF @MENERR sDISPLAY ERROR MESSAGE 
0203 012746 020374 MOV @MENERR , -( SP) 
020354 012746 000001 MOV #1,-(SP) 
020360 010600 MOV 2RO 
020362 104417 TRAP CSPNTF 
020 062706 000004 ADD 04,SP 
2594 020370 000735 BR is sRETRY 
2595 020372 7 5%: RTS PC sRETURN TO CALLER 
2596 020374 045 116 045 MENERR: .ASCIZ ‘sSNA #00 Menu Selection Too Large *+*' 
2597 020442 045 116 045 SELASC: .ASCIZ ‘sNsT' 
2598 020447 105 156 164 MENASC: roy ‘Enter Menu Selection: ' 
| 2600 020476 000000 MENRES 0 
| 
| 
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phat - CHECK MANUAL INTERVENTION LEGALITY 
2602 .SBTTL CHKMAN - CHECK MANUAL INTERVENTION LEGALITY 
2603 i* 
2604 $ 
2605 sROUTINE TC TEST FOR MANUAL INTERVENTION LEGALITY. 
2606 3 
2607 ; INPUT: 
2608 F 
2609 ; NONE . 
2610 3 
2611 sOUTPUT: 
2612 3 
26135 ; CARRY 0 MANUAL INYERVENTION NOT ALLOWED 
oS 3 1 MANUAL INTERVENTION IS OK 
aay ;SIDE EFFECTS: 
1 F 
2618 ; A MESSAGE IS DISPLAYED WARNING THAT TEST IS 
2619 ; NOT EXECUTED IF MANUAL INTERVENTION IS NOT 
2620 : ALLOWED. 
2621 3 
2622 3° 
2623 
2624 020500 CHKMAN: : 
2625 020500 SAVREG sSAVE THE REGISTERS 
2626 020504 sSEE IF MANUAL INTERVENTION OK 
020504 104450 TRAP C$MAN 
2627 020506 BCOMPLETE 1% sBRANCH IF ALLOWED 
020506 103411 bcs is 
2628 020510 PRINTF @NOMAN sPRINT THE WARNING MESSAGE 
020510 012746 020534 @NOMAN, -( SP) 
020514 012746 000001 MOV #1,-CSP 
020520 010600 SP, 
020522 104417 TRAP CSPNTF 
020524 062706 000004 64, 
2629 020530 000241 CLC ;CLEAR CARRY FOR ERROR 
at7 020532 000207 1%: RTS PC sRETURN 
2632 020534 045 116 045 NOMAN: .ASCIZ ‘sNSA #¢¢ Manuel Intervention not Allowed - Test Aborted *++s' 


-even 


i 
; 
— | 


TSV3 - GLOBAL AREAS 


ENVIRN 


2674 021006 
2675 021006 


MACRO M 


003124 
000002 
003126 
000004 
002012 
000007 


003124 
003126 
003130 


177520 
000002 
016376 


177520 
000001 
177520 
177520 


003144 
170000 


003146 


1113 14-JUN-64 15:55 


- SETUP FREE DIAGNOSTIC SPACE 


003124 
003126 
003126 


; 

; SUBROUTINE TO 

H 

ENVIRN: MEMORY 
AP 


10$: 


15%: 


ENVIRN 


- SETUP FREE DIAGNOSTIC SPACE 


SET-UP VARIOUS ENVIRONMENTAL PARAMETERS. 


@2,RO 
RO. FREEHI 
@BDVPCR,R1 
@2.R2 


; GET 1ST FREE ADDRESS... 
s...AND WORD COUNT. 

3; GET NUMBER OF UNITS 

3; TAKE AWAY 7 WORDS PER UNIT 
sGET FIRST FREE ADDRESS 
sPOINT TO LAST FREE ADDRESS 
sBACKUP 1 WORD 

sSTORE LAST FREE ADDRESS 


PECSASEEAREEHKAAHAKEEAEREEAKRERHEHAESEE HA EHH EES HRHE 
ADDRESS 


sGET BOV11 PCR ADDRESS 
sTRY TO WRITE TO IT 
RESULTS 


OULD BE WRONG 
OR RELEASE 

sTELL THE SYSTEM TYPE 

RETURN 


’ 
3SET THE FLAG 

sB8R 40% FOR RELEASE 
S TELL THE SYSTEM TYPE 


;RETURN 


-_——-— -4 


ec er ee ee -- -_ ——— oe -_-- 
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KTINIT - SETUP KT11 MEMORY MANAGEMENT REGISTERS 
2677 .SBTTL KTINIT - SETUP KT11 MEMORY MANAGEMENT REGISTERS 
2676 %° 
2679 : 
2680 sROUTINE TO INIT KT-11 
2681 Fy 
2682 3: 
2683 | 
2684 021010 KTINIT: 
2685 021010 005037 003132 CLR KTFLG s INIT >26K MEMORY FLAG | 
2686 021014 005037 003134 CLR K TENABLE s INIT TEST >26K FLAG 
2687 021020 023727 002120 001577 cre LOMIME,01577 5 GOT ENOUGH MEMORY (>28K)? 
2688 021026 101444 eLOS 6 sso98 s NO. 
2689 021030 013700 000004 HOV BEERRVEC RO s SAVE OLD ERR vec PTR. | 
| 1034 012737 021126 000004 MOV 02%,Q0ERRVEC ; SET ERR VEC PTR 
2691 021042 005737 177572 TST @eSRO + GOT KT117 
| 2692 021006 NOP s (TRAP IF NO). 
| 2693 021050 013737 002120 003132 MOV LOMIME.KTFLG ; YES. SET KT FLAG. 
1056 042737 000177 003132 BIC 6177 ,.KTFLG ; 
| 2695 021064 010037 000004 MOV RO, BEERRVEC s RESTORE OLD ERR VEC PTR. 
005000 CLR RO 5 RO © AR DATA, 
| 2697 021072 012701 172340 MOV @XIPARO RI s Rl © KI REGS PTR 
| 2698 021076 012761 077406 177740 18: HOV 077406,-40(R1) 45 SET DESCRIPTOR REG 
| 2699 021104 010021 MOV (RI Do ; SET KIPAR REG. 
| 2700 021106 062700 000200 ADO RO 5 BUMP AR DATA BY “ax. 
| 2701 021112 7 002000 oP . 3 AT “370°? 
| 2702 021116 001367 BNE 18 3 NO. 
2703 021120 012741 177600 MOV 0177600,-(R1) 3; YES. SET KTPART FOR 1/0. 
| 2708 021124 BR 98 
| 2706 021126 012716 021134 28: MOV 068, (SP) : SET UP RETURN 
2707 021132 900002 RTI ; RTI TO NEXT LOCATION 
2709 021134 010037 000004 68: MOV RO, BEERRVEC s RESTORE OLD ERR VEC PTR. 


2711 021140 000207 9%: RTS PC 
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KTINIT - SETUP KT11 MEMORY MANAGEMENT REGISTERS 


SUBROUTINE TO SET EXTENDED FEATURES SWITCH 
Requires thet SOFINIT end WATCHR heve been done previous to cell. 


“RS CURRENT UNIT NUMBER 
The Extended Features Switch is set. 


fe 
~d 
bes 
vs) 
o oe Ge GF GF Ge Ge Ge Ge oe Ge oe 
w 


272 
2728 021142 005737 002226 TST EXTFEA s IS SWITCH SET? 

is s VYES,EXIT STAGE RIGHT!(or the next one oute tow!) 
@100206 , CHDPKT 5 WRT SUB-SYS MEM CHD 

@USMBK , CHDPK MSG BUF AUOR 


j 
j 
| 
| 2733 021172 012737 100010 021224 @100010, WSMBK ; INVERT THE SWITCH 
| 2734 021200 012704 021214 : 3s SET CMDPKT INTO R4 
021204 004737 010662 PC, WRTCHR : 00 IT 
| 2736 021210 000207 18 RTS 1 RETURN 
| 2738 : COMMAND PACKET 
2740 021214 ' . <.+3>€177774 — ;MUST BE ON MOD 4 BOUNDRY. 
, 2742 021214 000000 CMDPKT:: 0 31ST WORD IS TSOS COMMAND. 
2743 021216 000000 0 32ND WORD IS THE BUFFER LOW ADORESS. 
2744 021220 000000 ry 33RD WORD IS THE BUFFER HIGH ADDRESS. 
2745 021222 000000 0 14TH WORD IS THE BYTE/RECORD/FILE COUNT. 
2747 : WRITE SUB-SYSTEM MEMORY CHARACTERISTIC BLOCK. 
| 2749 021224 000000 WSHBK:: 0 1ST WORD:: SEL 0 
j 1226 000000 i WORD: : 
| 2751 021230 000000 ao 33RD WORD:: SEL 4 
| 2753 se ‘ 
2754 ; SUBROUTINE TO CHECK WETHER OR NOT WE'LL TEST NXM 
2756 ; 
2757 s INPUTS 
2758 ;OUTPUTS: 
2759 3 The NXMFLG is set if we can test. 
one 3 Tre NXMLO and NXMHI eddresses are setup. 
2762 , 
eres 021232 MEMCK: : 
| 2765 021232 SAVREG ;SAVE THE REGISTERS 
2766 021236 005037 003136 CLA NXMFLG :CLEAR THE FLAG 
| 2767 021242 005037 003140 CLR NXMLO 1CLEAR THE TEST ADORESS LO 
2768 021246 005037 003142 CLR NXMHI sCLEAR THE TEST ADORESS HI 
j 
i 


2769 021252 005737 003146 TST T238 1IS IT A 11/7238? 
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KTINIT - SETUP KT11 MEMORY MANAGEMENT REGISTERS 


2770 021256 001407 BEQ 1s sNC 
2771 021260 023727 002120 007777 CMP LSHIME , 07777 ; GREATER THAN 128K 
2772 021266 103406 BLO 23 
2773 021270 004737 021406 JSR PC ,NXMTST sSETUP THE | 
2774 021274 00427 BR 13% sSET THE FLAG AND EXIT | 
2775 021276 005737 003144 18: TST T23A sIS IT A 11/23A? 
2776 021302 001413 BEQ as NO | 
2777 021304 023727 002120 005777 2%: CMP LSHIME , 05777 sGREATER THAN 96K 
2778 021312 101023 BHI 14% sYES,23A/238 WITH 126K MEMORY | 
2779 021314 023727 002120 003777 CéP LSHIME , 03777 :GREATER THAN 64K BUT LESS THAN 92K? 
2780 021322 103403 BLO 4s 3NO, CHECK 24K 
—-s- 9781 021324 004737 021406 JSR PC .NXMTST sSETUP THE ADORESS | 
—-s«- 8782 021330 000411 BR 13% 3SET THE FLAG AND EXIT 
| 2783 021332 023727 002120 001577 4%: CMP LSHIME , 01577 sGREATER THAN 24K BUT LESS THAN 64K? 
| 2784 021340 103410 BLO 14% sNO, TELL THEM AND EXIT WITH FLAG CLEAR 
| 2785 021342 004737 021406 JSR PC .NXMTST sSETUP THE ADORESS 
| 2786 021346 062737 000077 003142 ADO 077, NXMHI sFOOL THE 11/02 € 11/03 
2787 021354 005237 003136 13%: INC NXMFLG sSET THE FLAG 
| 2788 021360 000411 ar 15$ sEXIT | 
| 2789 021362 000410 14%: BR 15% ;NOP FOR PRINTOUT 
2790 021364 PRINTF @NOMEM TELL THEM & EXIT e¢eNO PRINTesesee 
021 012746 005460 MOV @NOMEM, -( SP) 
021370 012746 000001 MOV #1,-(SP) 
021374 010600 MOV RO 
021376 104417 TRAP = CSPNTF 
021 062706 000004 ADO 04,SP 
| 2791 021404 000207 15%: RTS PC 3 RETURN 
| 2792 
2793 3° 
o7ee : SUBROUTINE TO SETUP THE NXM ADORESS FOR TESTING 
' a 
he 3s OUTPUTS : NXMLO, NXMHI s;SETUP WITH NXM ADORESS 
' . 
2738 t- 
| 2799 
2800 021 013701 002120 NXMTST: MOV LSHIME ,R1 :GET TOP OF MEMORY 
2801 021412 062701 000200 ADO @200,R1 ;MAKE IT I/O BLOCK OR OTHER NXM 
2802 021416 042701 000177 BIC #177,R1 
| 2803 021422 010102 MOV R1,R2 sRESAVE RESULTS 
| 2604 000006 REPT 6 
| 2805 ASL R1 sPUT IN PLACE FOR XFER 
28606 .ENDR 
28607 021440 010137 003140 MOV R1,NXMLO sSAVE TEST ADORESS LOW 
2808 000012 .REPT 10. 
2009 ASR R2 sPUT IN PLACE FOR XFER 
2811 021470 042702 177700 BIC #177700,R2 sD0N'T WANT ILA! 
2812 021474 010237 003142 MOV R2,NXMHI sSAVE TEST ADDRESS HIGH 
2015 021500 000207 RTS PC ;RETURN 
2815 021502 ENOMOD 
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KTINIT - SETUP KT11 MEMORY MANAGEMENT REGISTERS 
2 TITLE TSV4 - MISCELLANEOUS SECTIONS | 
9 021502 BGNMOD TSV4 | 
021502 TSV4:: 
10 
16 
17 
18 
19 .SBTTL PROTECTION TABLE 
20 021502 BGNPROT 
| 021502 LS$PROT: : 
21 021502 177777 177777: «177777 .WORD -1, -1, -1, -1 1NO DEVICE PROTECTION REQUIRED. 


22 021512 
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INITIALIZE SECTION 


000035 


000037 


002200 


002012 


003176 


-SBTTL INITIALIZE 


FB 


SECTION 


THE INITIALIZE SECTION ay THE CODING THAT IS PERFORMED 


“ THE BEGINNING OF EACH P 


IF “START” OR “RESTART”, 
sIF “CONTINUE”, NOTHING is 
; 

aati 


REQUIRED. 


3° 
sINSERT TEMPORARY JUMP TO ODT 


BGNINIT 

LSINIT:: 

40$: CLR EXTFEA 
CLR NXMFLG 
MOV @EPRT1,EPRTSW 
CLR SIFLAG 
CLR KTENABLE 
CLR RAMSIZ 
RCADEF #€F .CONTINUE 

@€F . CONTINUE ,RO 

TRAP CSREFG 
BNCOMPLETE 1% 
Bcc 
CMP UNITN,LSUNIT 
BHIS 4s 
TST OUFLG 
BMI NXTU 
MOV UNITN,R1 
ASL Ri 
TsTt ERTABL(R1) 
BEQ SETU 
BIT @BIT14,ERTABL(R1) 
EXIT INIT 
TRAP CsExIT 
-WORD L10030- 

1%: READEF #€F .NEW 
MOV @€F .NEW,RO 
TRAP CSREFG 
= ETE NXTU 
READEF @€F .START 
MoV @€F .START,RO 
TRAP G 
BCOMPLETE 23% 
ecs 2s 
READEF €F .RESTART 

@€F .RESTART ,RO 

TRAP CSREFG 
BNCOMPLETE 31% 

- BCC 31% 


BRESET 
TRAP CSRESET 


SET QUICK-PASS FLAG AND BUS-INIT. 


SE@ 0096 


sSET UP PRIMARY MESSAGE FOR REPLACEMENT 


FLAG 
sCLEAR RAM SIZE FOR R RAMERR ROUTINE 


sUNIT IN RANGE? 

IF NO. 
;DROPPED UNIT? 
;6R IF YES 


sDROPPED? 


300 NOTHING IF “CONTINUE”. 


sTAKE NEXT UNIT IF NOT NEW PASS. 


31ST PASS, BUS-INIT... 
;B8US RESET. 
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INITIALIZE SECTION 
65 021654 005037 002214 CLR TSTCNT sNUMBER OF TESTS RUN IN PASS 
66 021660 005037 002222 CLR FATFLG ;CLEAR FATAL ERROR COUNT 
67 021664 005037 003144 CLR T23A sCLEAR 11/23A FLAG ; 
68 021670 005037 003146 CLR T238 sCLEAR 11/238 FLAG 
69 : MOV #340, -(SP) 
70 ; MOV 020%, -( SP) sRETURN TO DEBUGGER 
71 ; JMP 0.00T s;@@ENTER THE DEBUGGER 
72 021674 005037 003400 CLR SKIPT ;CLEAR THE SUBTEST “SKIPPER” 
73 021700 208: 
74 021700 012737 177777 002204 MOV @-1,QVP 3...-QUICK VERIFY... 
75 021706 004737 020630 JSR PC, ENVIRN 3SET ENVIRONMENT. 
7% 021712 004737 021010 JSR PC, ,KTINIT sINITIALIZE KT MEMORY MANAGEMENT 
77 021716 012700 003176 MOV @ERTABL ,RO 
78 021722 005020 308: CLR (R0)> sCLEAR THE ERROR TABLE 
79 021724 020027 003376 CMP RO, @ERTABE 
80 021730 103774 BLO 30% 
81 021732 000404 ar 4s 
82 021734 005037 002204 31s: CLR ave 
ss 021740 000137 022010 JP PASRPT :GO REPORT THE STATUS 
85 021744 4: 
86 021744 012737 177777 002202 NEWPAS: MOV @-1,UNITN sINIT UNIT NUMBER... 
87 021752 005037 002220 CLR DEVCNT ;CLEAR COUNT OF DEVICES RUNNING 
88 021756 NXTU BREAK 
021756 104422 TRAP CSBRK 
| 89 021760 005237 002202 INC UNITN ;...AND SET NEXT UNIT NUMBER. 
90 021764 023737 002202 002012 CMP UNITN,LSUNIT 
| 91 021772 103423 BLO SETU 
92 021774 012737 177777 003112 MOV @-1,0UFLG 
93 022002 000401 BR 11% 
022004 DOCLN sABORT, NO MORE UNITS. 
022004 104444 TRAP C8OCLN 
| 95 022006 000240 11%: NOP 
| 96 022010 PASRPT: 
97 022010 023727 002012 000001 CMP LSUNIT,@1 sHOW MANY UNITS SELECTED? 
96 022016 101752 BLOS NEP AS 38R IF ONLY 1 
99 022020 005737 002220 TST OEVCNT sARE ANY STILL RUNNING? 
100 022024 001747 BEQ NEWPAS ;BR IF NO 
| 101 022026 RFLAGS RC 
022026 104421 TRAP C$RFLA 
102 022030 032700 000100 BIT @iSR,RO sSHOULD WE PRINT STATISTICS 
ues 022034 001343 BNE NEWPAS ;BR IF NO 
105 022036 DORPT 
022036 104424 TRAP CSDRPT 
106 022040 000741 BR NEWPAS 
7 022042 108: 
{ 
109 022042 SETU: GPHARD UNITN,RO ;GET UNIT N P-TABLE POINTER. 
| 022042 013700 002202 MOV UNITN, RO 
022046 104442 TRAP C#éGPHRD 
110 022050 BNCOMPLETE NXTU ;BR IF UNIT NOT AVAILABLE. 
022050 103342 BCC NXTU 
111 022052 005037 003112 CLR DUFLG sCLEAR “DROPPED” FLAG. 
112 022056 005237 002220 INC DEVCNT 
113 022062 012001 MOV (RO)+,R1 sGET 1ST REGISTER ADORESS 


| 
| 
} 
| 


114 022064 010137 002206 MOV R1,CSRADOR sADDRESS OF REGISTERS OF UNIT UNDER TEST 





H8 
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INITIALIZE SECTION 


115 
116 022070 012001 MOV (RO)+,R1 ;GET VECTOR ADDRESS. 
117 sMOv —s- CRO), R2 ;GET INTERRUPT PRIORITY 
118 :MOV—s- R2,, IPRI :SET INTERRUPT PRIORITY 
119 022072 010137 002210 MOV R1,IVEC :SET INTERRUPT VECTOR POINTER... 
120 022076 012721 016216 MOV @INTR,(R1)+ +... VECTOR. . 
121 022102 013721 002212 MOV IPRI,(R1)+ +... AND PRIORITY. 
122 
123 022106 1s: | 
124 : TST ave ;1ST PASS 27 
125 ; BEQ S$ iNO, SKIP THE PASS 1 STUFF. | 
126 
127 : 
128 ;1ST PASS, CHECK THAT DEVICE ADDRESSES ARE VALID, AND | 
129 ;THAT THE DISPLAY STATUS IS PROPERLY INITIALIZED. 
1 3 
131 022106 013701 002202 MOV UNITN,R1 
132 022112 006301 ASL Ri 
133 022114 052761 1 003176 BIS @B81T15,ERTABL(R1) :SAY DEVICE RUNNING 
134 022122 005037 00577 CLR EXTA :CLEAR ERROR EXTENSION FLAG. 
135 022126 023727 002012 000001 CHP LS$UNIT, #1 ;ARE WE TESTING MULTIPLE UNITS? 
136 022134 101416 BLOS 10% :8R IF NO. 
137 022136 RFLAGS sYES -- GET OPERATOR FLAGS. 

022136 104421 TRAP  C$RFLA 
138 022140 032700 001000 BIT @PNT, :SHOULD WE PRINT UNIT 07 
139 022144 001412 BEQ 10$ 38R IF NOT. 
140 022146 PRINTF #PUNIT,UNITN ;PRINT THE UNIT © 

022146 013746 002202 MOV TN, -(SP) 

152 012746 022240 MOV .-CSP) 

922156 012746 000002 MOV @2,-(SP) 

022162 010600 MOV SP RO 

022164 104417 TRAP  CSPNTF 

022166 062706 000006 66, SP 
141 022172 108: 
142 022172 005037 003114 CLR NODEV 
143 022176 013701 002206 MOV CSRADOR ,R1 sADORESS OF FIRST REGISTER 

022202 010102 MOV R1,R2 ISTART OF REGISTERS 
145 022204 062702 000002 ADO @TSSR,R2 sADORESS OF TSSR REGISTER 
146 022210 004737 016376 JSR PC, TEST BOTH CONTROLLER REGISTERS... 
147 022214 10 Bcc 2¢ .AND BR IF ALL OK. 
148 022216 010137 003114 MOV R1,NODEV IFLAG DEVICE aS "NON-EXISTENT 
149 022222 012737 177777 003112 @-1,0UFLG ;OROP THIS 
150 022230 2%: 

3 
152 iFINALLY, SET CPU PRIORITY AND WE'RE DONE. 
3 

154 022230 S$: SETPRI #PRIOO ;ENABLE INTERRUPTS. 

022230 012700 000000 MOV @PRIOO, 

022234 104441 TRAP  C4#SPRI 
155 022236 INIT 

022236 L10030: 

022236 104411 TRAP —- CSINIT 
157 022240 045 116 045 PUNIT: 


— /SNONBAsceeee TESTING UNIT SD2QHA seeee/ 
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ADD AND 


AND DROP UNITS SECTIONS 


100000 
171 022320 042761 040000 


012746 022354 
000002 


022344 062706 000006 


000026 
174 022354 045 116 


104452 


177777 


140000 
000240 


022434 012746 022460 
000002 


022450 062706 000006 
196 022454 


003176 
003176 


045 


36 


-SBTTL ADD AND DROP UNITS SECTIONS 


s THE ADD-UNIT SECTION CONTAINS THE CODING THAT as A DEVICE 


s TO BE CA) 


ADDED TO THE TEST LIST FOR THE FIRST T 


; OR (8) RE-INSERTED IF IT HAD BEEN PREVIOUSLY DROPPED 


yoo 
L$AU:: 


1$: 


L10031: 


see 


WILL PRINT 
WHICH ARE Y 


BGNAU 
MOV RO,R1 + GET UNIT TO BE ADDED (RO) 
ASL R1 ; MAKE IT A WORD INDEX 
BIS #100000 , ERTABL(R1) s SET THE “ACTIVE” BIT 
BIC #40000 , ERTABL(R1) ; CLEAR THE “DROPPED” BIT 
PRINTF #1%,R0 
RO, -C SP) 
@2,-CSP 
Vv SP ,RO 
TRAP CSPNTF 
ADD 6, 
EXIT AU 
. WORD 


-WORD  L10031-2-. 
—— /8NSA UNIT SDA ADDED/ 


ENDAU 
TRAP CsAuU 


; UNUSED. 


THE DROP-UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE 
TO BE REMOVED FROM THE TEST LIST. 


SUPVSR DOES bate “DROPPING”. 
“DROPPED” 


THIS IS JUST TO TELL THE MAN. 
ARE RE-SELECTED ON OPERATOR “STA” OR “ADD” 
TIVE. THE “DISPLAY” COMMAND 
, AND THE P-TABLES OF THOSE 


BGNDU 

MOV @-1,0UFLG 

MOV RO,R1 

ASL R1 

BIS #140000 ,ERTABL(R1) 3 SAY DROPPED 

240,240,240 3 222222272? 
TF #18,RO 


-WORD J$JMP 
-WORD 1L10032-2-. 


SEQ 0099 


J8 


TSV4 - MISCELLANEOUS SECTIONS MACRO M1113 14-JUN-84 15:55 SEG 0100 
ADD AND DROP UNITS SECTIONS 

197 022460 045 116 045 18: ‘an /SNSA UNIT SD8A DROPPED/ 
98 ° 
199 022510 E 

022510 L10052: 

022510 104453 TRAP Cs0uU 
200 see 
201 ; AUTO-DROP CODE SECTION. 
202 ae 
203 022512 BGNAUTO 

022512 L$AUTO: : 
204 022512 013705 002206 MOV CSRADOR , RS sPOINT TO DEVICE REGISTER 
205 022516 012703 000550 MOV #360. ,R3 sENOUGH TIME FOR 2400' REEL TO REWIND 
206 022522 004737 016250 10$: JSR PC ,WAITF sWAIT FOR SSR TO SET 
207 022526 103420 BCS 20% sLEAVE WHEN SSR IS SET 
208 022530 DELAY 250. sWAIT FOR .25 SECONDS 

012727 000372 MOV #250. ,(PC)+ 
022534 000000 -WORD O 
36 013727 002116 MOV L$DLY,(PC)+ 

022542 000000 -WORD 0 

022544 005367 177772 DEC -6(PC) 

022550 001375 BNE .-4 

022552 005367 177756 DEC ~22(PC) 

022556 001367 BNE .-20 
209 022560 005303 DEC R3 sBUMP COUNTER DOWN 
210 022562 001557 BNE 10$ sKEEP GOING 
211 022564 004737 017202 JSR PC ,CKDROP TRY AND DROP UNIT 
212 022570 208: 
213 022570 ENDAUTO ; UNUSED. 

022570 L10033: 


022570 104461 TRAP CsAUTO 


012765 
004737 


104412 


TSV4 - MISCELLANEOUS SECTIONS 
CLEAN 


023062 
000001 


023167 


KB 
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-UP AND REPORT CODING SECTIONS 


-SBTTL CLEAN-UP AND REPORT CODING SECTIONS 


3¢¢ 

; THE CLEANUP CODING SECTION CONTAINS THE CODING THAT IS 
; EXECUTED AT THE END OF EACH PASS (OR SUB-PASS). 

; USE TO RETURN DEVICE UNDER TEST TO A NEUTRAL STATE. 
iad 


BGNCLN 

LSCLEAN: : 
MOV CSRADOR ,RS sPOINT TO DEVICE REGISTER 
TST DUFLG :"DROPPED” FLAG IS SET ON.. 
BMI 1$ ;...AND GROSS CONTROLLER F AULT. 

3;...D0N'T TRY TO XCT CLEANUP CODE . 

MOV #0, TSSRCRS ) ;00 SOFT INIT 

- JSR PC ,WAITF 

2s: ENOCLN 

L10034: 


TRAP CSCLEAN 
see 


; THE REPORT CODING SECTION CONTAINS THE 
; “PRINTS” CALLS THAT GENERATE STATISTICAL REPORTS. 
7o= 


BGNRPT 
L$RPT:: 
PRINTS #@DEVSUM 
MOV @DEVSUM, -( SP) 
MOV #1,-(SP) 
MOV SP RO 
TRAP CSPNTS 
ADD »SP 
MOV R2,-C(SP 
MOV R3,-(SP) 
MOV »-(SP) 
MOV @ERTABL ,R4 s GET START OF — TABLE. 
CLR s CLEAR UNIT NUMBER 
1$: MOV CR4),R2 s GET ERROR TABLE ENTRY € TEST IT. 
BEQ s ZERO IF UNIT NOT RUN 
BPL as 
BIT @€1T14,R2] ; WAS UNIT DROPPED? 
et ; BR IF YES 
BIC @tC7777 ,R2 3 GET = COUNT FIELD 
PRINTS @DEVONL,RS,R2 ; PRINT 
MOV R2,-CSP) 
MOV R3,-CSP) 
MOV @DEVONL , -( SP) 
MOV @3,-(SP) 
MOV SP RO 
TRAP CSPNTS 
ee 
2s: CMP R2, 0160000 s WAS UNIT NON-EXISTENT? 
BNE 3% ; BR IF NO 
PRINTS GDEVINXR »RS 


) 
MOV @DEVNXR, -(SP) 





a a a ae ee 


L8 
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CLEAN-UP AND REPORT CODING SECTIONS 


270 023062 045 116 
271 023117 045 101 
272 023167 045 101 
273 023251 045 101 
274 023332 045 101 
275 

276 

277 023402 

27 


$3333 


3$: 


4$: 


MOV 
MOV 
TRAP 


R2,#160001 
30% 


@0EVORO - »R2 


(SP)+, *R2 
: UNUSED. 


C$RPT 
/BNBADEVICE STATUS SUMMARY : N/ 


/$A UNIT SO038A ONLINE, ERRORS = sDsN/ 

/#A UNIT S038A DROPPED, NON-EXISTENT REGISTERSN/ 
DROPPED, NOT READY AT STARTUPSN/ 

» ERRORS = sOsN/ 


3 WAS UNIT NOT READY AT STARTUP? 
; BR IF NO. 


SEQ 0102 


M8 
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TSVS - HARDWARE TESTS 
_ CLEAN-UP AND REPORT CODING SECTIONS 


} .TITLE TSVS - HARDWARE TESTS 
9 
10 023402 BGNMOD TSVS 
02 TSVS:: 
16 
24 


ee ee ae ee —— - - ————— 


SEQ 0103 


78 023532 


TS 


N8 
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015774 


002222 
000000 
016336 


002222 


002216 


TSVS - HARDWARE TES 
TEST 1: INITIALIZE AFTER WRITE CHARACTERISTICS 


SEQ 0104 


-SBTTL TEST 1: INITIALIZE AFTER WRITE CHARACTERISTICS 


:¢ 
TEST DESCRIPTION: 


This test verifies that a Hardware Initialize command 
invoked after a Write Characteristics command sets up 
the Command, Message and Characteristic image blocks 


in the controller ram correctly. 


REPEAT FOR LOOPCNT 
BEGIN 


If the 


; 

; 

; 

. 

; 

; TEST STEPS: 
. 

, If controller R 
A 


MOV @TST13I0,RO 
JSR PC, TSTSETUP 


MOV 410. ,LOOPCNT 
T13LO00P: 

JSR PC, TI3REST 

MOV @TSTBLK+10. ,.R3 

MOV @T1I3PACKET ,R4 
- MOV 08. ,PKBCNTC(R4) 

JSR PC ,SOFINIT 

BcS 10% 

MOV RO,R1 

ERROF ERRNO,SFIERR,SFINSG 


sDo WRITE CHARACTERISTICS command. 
10%: CLR FATF 


F 12s 
BCS 15% 

MOV RO,R1 

NEXT 


. ERRNO 
12%: ERRDF ERRNO, T13SSR,PKTSSR 


INC FATFLG 
15%: CKLOOP 


Do WRITE CHARACTERISTICS command. 

NBA bit in the TSSR register is NOT=0 then Print Error. 

Write to TSSR cea! goer to soft initialize the controller 
310-377 NOT=0 then Print Error 


sASCII MESSAGE 10 IDENTIFY TEST 
:00 INITIAL TEST SETUP 
sPERFORM 10 ITERATIONS 


;SET PACKET TO START-UP VALUES 


sSTART OF TEST DATA 
GET THE ADDRESS OF COMMAND PACKET 
;START WITH MINIMUM ALLOWABLE VALUE 


sWRITE TO TSSR TO + ly INITIALIZE 
sBR IF SOFT INIT OKAY 
SAVE CONTENTS OF TSSR 
sDEVICE FATAL DURING INIT 
TRAP ee 


-WORD 1 
-WORD SFIERR 
-WORD SFIMSG 


s;CLEAR FATAL ERROR FLAG 

sSET THE PACKET ADDRESS TO EXECUTE 

sWAIT FOR SSR TO SET 
s;@GOFORCE ERROR IF FORCER=1 

sBR IF CARRY SET (GOOD RETURN) 

;SAVE CONTENTS OF TSSR 


;DEVICE FATAL SSR FAILED TO SET 
TRAP 


CSEROF 
-WORD 101 
-WORD T13SSR 
-WORD PKTSSR 


s;SET FATAL ERROR FLAG 
;LOOP ON ERROR, IF FLAG SET 


HARDWARE TESTS 
test 1: INITIALIZE AFTER WRITE CHARACTERISTICS 
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015774 


002222 


MOV TSSACRS) RI 
MOV @SSR ,R2 
617 OOFL RI 
258 
BIS OOF .R2 


SEQ 0105 


TRAG CécL Pl 
sGET THE CONTENTS OF TSSR 
sEXPECTED CONTENTS OF TSSR 
sIS OFF-LINE BIT SET ? 
sBRANCH IF NOT OFF-LINE 
ISET OFF-LINE IN EXPECTED DATA 


4 the NBA bit in the TSSR register is NOT*O then Print Error. 


FORCERROR 27% 
cep R2,R1 
BEO 308 


. ERRNO 
278: ERFHRD ERRNO, T1SNBA,PKTSSR 


30%: CKLOOP 


1830 
s;00ES EXPECTED MATCH RECEIVED ? 
sOKAY IF MATCH 


sNBA NOT ZERO 
TRAP CSERHRD 
-WORD 102 
-WORD YT15NBA 
WORD PKTSSR 


sLOOP ON ERROR 7? 


hg to TSSR register to soft initislize the controller 


JSR PC , SOF INIT 
F aes 
ecs 50s 

Ov RO,R1 
NEXT . ERRNO 


42%: ERROF ERRNO, SFIERR,SFIMSG 


sWRITE TO TSSR TO SOFT INITIALIZE 


! 
sOR IF SOFT INIT OKAY 
sSAVE CONTENTS OF TSSR 


sDEVICE FATAL OURING INIT 
TRAP 


sI? controller a 310-377 NOT=0 then Print Error 
S08: mov R46 


ar 


ERRNO 
62%: ERROF ERRNO, 115MEM,RAMEXP 


INC FATFLG 
708%: CKLOOP 


ESCAPE TST 


sSTART WITH LOC 310 
sMEMORY EXPECTED SHOULD BE 000000 
MAINTENANCE MODE 


sSELECT RAM ADDRESS 
sWAIT FOR SSR READY 
sREAD LOC CONTENTS 


iL. 
sCHECK MEMORY FOR 000000 
sQRANCH IF DATA OKAY 


sMEMORY NOT ZERO AFTER INIT. 
TRAP 


CSEROF 
-WORD 104 
-WORD  T1LSMEM 

RAME XP 


:SET THE FATAL ERROR FLAG 


TRAP Csc.Pi 
sEXIT ON FATAL ERROR 


TRAP CS8ESCAPE 
-WORD 110036-. 





175 024322 


012701 024000 


HMAROWARE TESTS HACRO M1113 14-JUN-64 15:55 SE 
vest 1: INITIALIZE AFTER WRITE TN ARACTERTSTICS = aoe 
119 
120 023734 05204 62%: INC R4 sLOOK AT NEXT RAM LOC. 
121 023736 020427 000400 CMP R4 , 0400 sAT TOP OF RAM ADORESS SPACE 
as 023742 001347 BNE 608 sBRANCH TILi ALL MEMORY TESTED 
12 
124 
125 023744 005737 002222 TST FATFLG sANY FATAL ERRORS 7? 
126 023750 001402 BEQ 1608 sBRANCH IF NOT 
127 023752 004737 017202 JSR sTRY TO OROP THE UNIT 
126 023756 004737 016456 1608: JSR PC, TSTLOOP sD0NE ALL ITERATIONS? 
129 023762 103002 Bcc 165% s6R IF YES 
130 023764 000137 023420 JP T13L.00° sLOOP UNTIL ITERATION COUNT DONE 
131 023770 165%: 
132 023770 EXIT TST 
0237 104432 TRAP CSsExIT 
133 023772 000372 -WORD 110036-. 
134 
135 3° 
4] sLOCAL STORAGE FOR THIS TEST 
3- 
138 
140 024000 -*¢,010>€177770 
142 024000 TILSPACKET : sCOMMAND PACKET A Ly T 
143 024000 100004 “WORD 100004 SMRITE yoy. CS COMMAND. WITH ACK 
024002 024010 -WORD TIS3DATA sADORESS OF CURACTERISTiCs BLOCK 
145 024004 -WORD O 
eer 024006 000010 -WORD 8 sSTARTING VALUE OF BLOCK SIZE 
148 024010 TI3DATA: sCHARACTERISTICS _— BLOCK 
149 024010 024022 -WORD T136FR sADORESS OF MESSAGE BUFFER 
150 024012 000000 WORD 
151 024014 000016 -WORD 14. sLENGTH OF MESSAGE BUFFER 
oe 024016 000000 000000 -WORD 0,0 
154 024022 TI36FR: .BLKW sMESSAGE BUFFER 
ae :LOCAL * TEXT MESSAGES FOR TEST 
t- 
157 
158 111 156 151 TST13I0: ASCIZ ‘Initialization After WRITE CHARACTERISTICS’ 
159 024115 111 156 143 T13MEM: — ‘Incorrect RAM Dete After Init 
161 024154 127 122 111 TiS3NBA: *ASCIZ ‘WRITE CHARACTERISTICS Commend Not 
as 024227 103 157 156 T1I3SSR: .ASCIZ ‘Contents of TSSR Incorrect After unite’ CHARACTERISTICS: 
164 
166 4 
F 
on sROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
$ 
169 s- 
170 
171 EVEN 
172 
173 024316 TI3REST: 
174 024316 SAVE THE REGISTERS 


4 
MOV @TISPACKET,R1  sSTART OF THE PACKET 
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TEST 1: INITIALIZE AFTER WRITE CHARACTERISTICS 
176 024326 012721 100004 MOV #100004 ,(R1)-> sWRITE Pe te nae WITH ACIC 
177 024332 012721 024010 MOV @TISDATA,(R1)+  ;ADORESS OF CHAR DATA BLOCK 
178 024336 005021 CLR (R1)- sEXTENDED ADORESS 
179 024340 012721 000010 MOV @6.,(R1)> sSIZE OF DATA BLOCK IN BYTES 
160 024344 012721 024022 MOV @T13BFR,(R1)+ sADORESS OF MESSAGE BUFFER 
161 024350 005021 CLR C(R1)- | 
162 024352 012721 000016 MOV 14. ,(R1)> sLENGTH OF MESSAGE BUFFER 
183 024356 005021 CLR (R1)- 
184 024360 005011 CLR ss (R21) | 
185 024362 000207 RTS PC sRE TURN 
186 024364 ENDTST 
Boa) L10036: | 
er 024364 104401 TRAP CSETST 
i | 
ios -SBTTL TEST 2: BASIC WRITE SUBSYSTEM MEMORY COMMAND 
1 Z 
190 
191 } THIS TEST VERIFIES THAT THE WRITE SUBSYSTEM MEMORY COMMAND WITH A 
192 sBSELO SELECT CODE OF 0 (NO-OP) EXECUTES CORRECTLY. IT ALSO 
193 sVERIFIES THAT A WRITE SUBSYSTEM MEMORY WITH A NON-ZERO 
194 sMODE FIELD IS REJECTED. THE TEST FURTHER VERIFIES MICROPROGR 
195 s COMMAND HANDL SE 
196 ; 
197 _ 
| 196 tay BGNTST 
203 024366 012700 026201 MOV @TST14I0,RO sASCII MESSAGE 10 IDENTIFY TEST 
204 024372 004737 016510 JSR PC, TSTSETUP 300 INITIAL. TEST SETUP 
205 024376 012737 000024 002216 MOV #20. ,LOOPCNT | PERFORM 20 ITERATIONS 
206 024404 T14L00P : 
207 iesene BGNSUB AAAAAAAAAAAA = SUBTEST //////4/4/4//7/ 
024404 104402 TRAP CsBSUB8 
208 024406 004737 026246 JSR PC, TI4REST sSET PACKET TO INITIAL VALUES 
209 024412 004737 026304 JSR PC, TI4RST sSET PACKET TO INITIAL VALUES 
210 024416 SETPRI @PRIOO sLOWER PRIORITY TO ALLOW INTERRUPTS 
024416 012700 000000 MOV #PRIOO,RO 
024422 104441 TRAP CsSPRI 
211 024424 S$: 
212 024424 BGNSEG 3>>>>>>>>>>>> BEGIN at ~ >>>>>>>>>>>> 
024424 104404 TRAP CsBSEG 
213 024426 004737 015774 JSR PC, SOFINIT 300 SOFT INIT OF CONTROLLER 
214 024432 103405 6cs 10% 36R IF SOFT | a et 
218 024434 010001 RO,R1 sSAVE CONTENTS OF TSSR 
219 024436 ERROF ERRNO,SFIERR,SFIMSG IDEVICE FATAL ERROR DURING INIT 
024436 104455 TRAP CSEROF 
024440 000311 -WORD 201 
024442 003652 -WORD SFIERR 
012034 -WORD SFIMSG 
220 024446 10%: 
221 024446 012704 025540 MOV @T14PK2 ,R4 sSUBROUTINE NEEDS PACKET ADORESS 
222 024452 004737 010662 JSR PC ,WRTCHR STSSUE WRITE CHARACTERISTICS 
223 024456 103405 eBcs 11% s6R, IF ete ISSUED OK 


| 
| 
| 
| 227 024460 010001 sSAVE CONTEN 
| 
| 


MOV RO,R1 S OF TSSR 
024462 ERRHRD ERRNO,WRTMSG, SFIMSG sWRITE CHARACTERISTISC FAILED 
024462 104456 aaa — 
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024466 005056 

024470 012034 
229 024472 lit: 
230 024472 005037 002222 CLR 
231 024476 005037 2 CLR 
232 024502 012704 025120 MOV 
233 024506 010465 MOV 
234 024512 004737 016336 JSR 
235 024516 103407 BCS 
236 024520 010001 MOV 
240 024522 ERROF 

024522 104455 

024524 000313 

024526 025733 

024530 012046 
241 024532 005237 002222 INC 
242 024536 15$:  CKLOOP 

024536 104406 
243 024540 ESCAPE 

024 104410 

024542 000074 

024544 005737 002224 TST 
245 024550 001004 BNE 
249 024552 ERRHRD 

024552 104456 

024554 000314 

024556 

024560 012046 
250 024562 016501 000002 22%: MOV 
251 024566 012702 000200 
252 024572 032701 000100 BIT 
253 024576 001 BEQ 

024600 052702 000100 BIS 
255 024604 020201 25% 

024606 001404 BEQ 
260 024610 ERRHRD 

026610 104456 

024612 000315 

024614 025562 

024616 012046 
261 024620 308: 

024620 004737 011114 35s: JSR 
024624 103405 BCS 
267 024626 ERRHRD 

024626 104456 
024630 000316 
024632 004745 
024634 015510 
268 024636 ENDSEG 
024636 
104405 
269 
270 
271 024640 59%:  ENDSUB 
024640 


024640 104403 


FATFLG 


RO,R1 
ERRNO, T14SSR,PKTSSR 


FATFLG 
SEG 


INTRECV 
22% 
ERRNO, TI4NINT ,PKTSSR 


TSSRCRS),R1 

@SSR ,R2 

@OFL .R1 

25% 

OOF! ,R2 

R2,R1 

30% 

ERRNO, T14NBA,PKTSSR 


_— 
ERRNO, PKTRAM, RAMERR 


SEQ 0108 
WORD WRTMSG 
WORD SF IMSG 


sCLEAR FATAL ERROR FLAG 
sCLEAR INTERRUPT RECEIVED FLAG 


S OF TSSR 
sDEVICE FATAL SSR ee TO SET 


TRAP CSEROF 
. WORD 3 
«WORD T114SSR 
-WORD PKTSSR 
sSET FATAL ERROR FLAG 
sLOOP ON ERROR, IF FLAG i 
CSCLPi1 
s6Y-PASS SUBTEST IF FATAL TERROR 
TRAP CSESCAPE 
-WORD 10000$- 
sD0ID AN INTERRUPT OCCUR ? 
sBRANCH IF YES 
TRAP CSERHRO 
- WORD 
-WORD  TI14NINT 
WORD PKTSSR 


sGET THE CONTENTS OF TSSR 
sEXPECTED CONTENTS OF TSSR 

sIS OFF-LINE BIT SET ? 

sBRANCH IF NOT OFF-LINE 

iSET OFF-LINE IN EXPECTED DATA 
sDOES EXPECTED MATCH RECEIVED ? 
sOKAY IF MATCH 


sNBA NOT ZERO 
TRAP CSERHROD 
-WORD 205 
-WORD T14NBA 
.WORD PKTSSR 


sCHECK RAM TO MEMORY 
sRAM OK GO ON 
s THEY DON’T MATCH 
TRAP CsERHRD 
206 


3<eeeeccceecee END SEGMENT rr aacaceeee ee: 
10000$ : 
TRAP CSESEG 


EN\NANNANNANNAN END SUBTEST N\ANANANAANANYS 
L10040: 
TRAP CsESUB 
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321 


024642 
024646 
024650 
024654 


005737 
001402 
004737 


002222 TST FATFLG 
BEQ 60% 
017202 one JSR PC ,CKDROP 


3¢ 
3 
TEST 2, SUBTEST 2 


FS 


SEQ 0109 


sANY FATAL ERRORS ? 
sBRANCH IF NOT 
sTRY TO DROP THE UNIT 


; 
sCHECK THAT NON-ZERO MODE BITS BEING SET CAUSES 
sWRITE SUBSYSTEM MEMORY COMMAND TO BE REJECTED 


BGNSUB 
SETPRI @PRIOO 
000000 
025540 S$: MOV @T14PK2,R4 
026246 JSR PC, TI4REST 
026304 JSR PC, T14RST 
BGNSEG 
015774 JSR PC ,SOF INIT 
BcS 10% 
MOV RO,R1 
ERROF ERRNO, SFIERR , SF IMSG 
108%: 
010662 JSR PC,WRTCHR 
Bcs 11% 
MOV RO,R1 
ERRHRD ERRNO,WRIMSG, SFIMSG 
11%: 
002224 CLR INTRECV 
025120 MOV @T14PACKET ,R4 
007000 BIS #007000, (R4) 
000000 HOV R4, TSOBCRS) 
016250 JSR PC ,WAITF 
Bcs 15% 
MOV RO,R1 
ERROF ERRNO,T14SSR,PKTSSR 
15%: CKLOOP 


ALAA ee SIIAIASSASA A 
"TRAP se 8BSUB 
;LOWER PRIORITY TO ALLOW INTERRUPTS 


MOV oPR 
TRAP CSSPRI 
sGET THE ADDRESS OF COMMAND PACKET 
sRESTORE PACKET TO STARTING VALUES 
sRESTORE PACKET TO STARTING VALUES 
3>>>>>>>>>>>> BEGIN wane ~~ >>> >>>>>>>>> 
TRAP CSBSEG 


300 SOFT INIT OF CONTROLLER 

s8R IF SOFT INIT = OK 

sSAVE CONTENTS OF TSSR 

sDEVICE FATAL ERROR pom = wall 


CSEROF 
-WORD 207 
-WORD SFIERR 
-WORD SFIMSG 
s ISSUE WRITE CHARACTERISTICS 
38R, IF COMMAND ISSUED OK 


sSAVE CONTENTS OF TSSR 
sWRITE SUBSYSTEM MEMORY — 


CSERHRD 
-WORD 206 
-WORD UWRTMSG 
-WORD SFIMSG 


sCLEAR INTERRUPT RECEIVED FLAG 
sSET-UP WITH WRT SUBSYS MEM PACKET 
sNON-ZERO COMMAND MODE BITS 
sSET THE PACKET ADORESS 
sWAIT FOR SSR TO SET 

IF CARRY SET (GOOD RETURN) 


sBR 
sSAVE CONTENTS OF TSSR 
{DEVICE FATAL SSR roaae Te a 


CSEROF 
209 


. WORD 
-WORD T14SSR 
PKTSSR 


. WORD 
sLOOP ON ERROR, IF FLAG SET 
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TESTS 


104406 


324 
004745 
015510 


104405 


104403 


001246 
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002224 


011114 


ESCAPE 


223: MOV 


25%: 


30$: 
35%: 


59$: ENDSUB 


SEG 


INTRECV 
22$ 
ERRNO, TISNINT ,PKTSSR 


TSSRCRS),R1 
@SC!SSR!TSREJ,R2 
OOFL .R1 

25% 
@OFL .R2 
R2, 


30% 
ERRNO, T142REJ,PKTSSR 


os oon 
ERRNO , PKTRAM,RAMERR 


TST 


3° 
sLOCAL STORAGE FOR THIS TEST 


.*¢,+#10>€177770 


T14PACKET 


2 


oooo 70 


T14DATA: 
T148S0: .BYTE 
peat -BYTE 


100206 
T14DATA 





SEQ 0110 
TRAP CSCLP1 
sBY-PASS CHECKS IF FATAL ERROR 
TRAP CSESCAPE 
10000$ -. 


;DID AN INTERRUPT OCCUR ? 
sBRANCH IF YES 


TRAP CSERHROD 

-WORD 210 

-WORD T14NINT 
WORD PKTSSR 


sSET OFF-LINE IN EXPECTED DATA 
sD0ES EXPECTED MATCH RECEIVED ? 
sOKAY IF MATCH 

sCOMMAND WOT REJECTED 


sCHECK RAM TO MEMORY 
3RAM OK GO ON 
s THEY DON’T MATCH 
TRAP CSERHRD 


g<eececececeee: END SEGMENT <eeeeeeeeeeec 
100008: 

TRAP CsESEG 
gNANNANNANAANN END SUBTEST \ANNANNANAAAN 
L10041: 

TRAP CsESUB 


TRAP CsExIT 
-WORD L10037-. 


sALL DONE THIS TEST 


sCOMMAND PACKET to TEST 
{WRITE SUBSYSTEM COMMAND, WITH IE, ACK 
sADORESS OF CHARACTERISTICS BLOCK 


sSTARTING VALUE OF BLOCK SIZE 
sCHARACTERISTICS DATA BLOCK 
sBSELO BYTE 

s6SEL1 BYTE 

:B8SEL1 WORD 

sDATA 
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TEST 2: BASIC WRITE SUBSYSTEM MEMORY COMMAND | 

369 025136 TI4BFR: .BLKW 128. sMESSAGE BUFFER 

370 

371 | 

373 025540 .*<, 610%€177770 

375 025540 T14PK2: :COMMAND PACKET FOR TEST 

376 025540 1 .WORD 100204 ;WRITE CHARA. MEM. CMND., WITH IE, ACK 

377 025542 025550 WORD T14DTA sADDRESS OF SELECT DATA BLOCK 

378 025544 000000 -WORD 0 

379 025546 000010 .WORD 8. ;STARTING VALUE OF BLOCK SIZE 

380 

381 

382 025550 T14DTA: sSELECT DATA BLOCK 

383 025550 025136 WORD T14BFR sADORESS OF MESSAGE BUFFER 

385 025554 000400 .WORD 256. sLENGTH OF MESSAGE BUFFER 

386 025556 000000 000000 -WORD 0,0 

388 

389 3° 

390 sLOCAL TEXT MESSAGES FOR TEST 

392 cd 

393 025562 127 122 111 TI4@NBA: .ASCIZ ‘WRITE SUBSYSTEM MEMORY Command Not Accepted’ 

394 025636 127 122 111 T142REJ: LASCIZ ‘WRITE SUBSYSTEM MEMORY Not Re jected With Non- Zero Mode Field’ 

395 025733 103 157 156 T14SSR: .ASCIZ ‘Contents of TSSR Incorrect After WRITE SUBSYSTEM MEMORY’ 

396 026023 105 170 160 TI14NINT: -ASCIZ ‘Expected Interrupt Not Received On WRITE SUBSYSTEM MEMORY’ 

397 026115 111 156 143 T14TSBA: “ASCIZ ‘Incorrect TSBA Address After WRITE SUBSYSTEM MEMORY’ 

398 026201 102 141 163 TST14I0: -ASCIZ ‘Basic WRITE SUBSYSTEM MEMORY Command’ 

399 .EVEN 

400 

401 

403 % 

3 
404 sROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
405 |WRITE SUBSYSTEM MEMORY COMMAND 
3 

407 z- 

408 

409 026246 TI4REST: 

410 026246 SAVREG sSAVE THE REGISTERS 

411 026252 012701 025120 MOV @T14PACKET R1 sSTART OF THE PACKET 

412 026256 012721 100206 MOV 100206, (Ri)+ ‘WRITE SUBSYSTEM MEM. WITH ACK, IE 

413 026262 012721 025130 MOV @T14DATA,(R1)+ sADORESS OF DATA BLOCK 

414 005021 CLR (R1)+ 1EX ADORESS 

415 026270 012721 000006 MOV #6. ,(R1)¢ }SIZE OF DATA BLOCK IN BYTES 

416 026274 005021 CLR (R1)+ CLEAR BSELO AND BSEL1 

417 026276 005021 CLR (R1)+ AR SEL2 

418 026300 005011 CLR (R1) SCLEAR DATA AREA 

419 026302 000207 RTS PC :RETURN 

421 

422 026304 T14RST: 

423 026304 SAVREG ;SAVE THE REGISTERS 

424 026310 012701 025540 MOV @T14PK2,R1 sSTART OF THE PACKET 

425 026314 012721 100204 MOV #100204, (R1)+ ;WRITE CHARA, WITH ACK, IE 

426 026320 012721 025550 MOV @TI40TA,(R1)+ ;ADORESS OF CHARAISTICS DATA BLOCK 


427 026324 005021 CLR (R1)+ ;EXTENDED ADDRESS 
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012721 
012721 
005021 
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000010 
025136 


060400 


025136 


19 


#8. ,(R1)> 
OTi4BFR, (R1)-+ 


SEQ Olle 
sSIZE OF DATA BLOCK IN A hag: 
sMESSAGE BUFFER ADDRESS 
sLENGTH OF MESSAGE BUFFER 
sCLEAR 1ST LOC IN MESSAGE BUFFERS 
;RE TURN 


L10037: 
TRAP CseTstT 


TSVS - 
TEST 2: 
438 


439 
440 


HARDWARE TESTS 
BASIC WRITE SUBSYSTEM MEMORY COMMAND 
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030430 
016510 
000012 
003150 
021232 


{ 
| | 
.SBTTL TEST 3: SUBTEST 1: GET STATUS SELECTED LOCATIONS 
3¢¢ 
; TEST 3: SUBTEST 1: 
3 
SUBTEST DESCRIPTION: 
This subtest verifies the controller can fetch a get status 
command from ell eveileble memory locetions. 
Two word blocks ere tested one at a time by first setting 
3 ell aveileble memory to e beckground pettern of 125252. 
; A Get Stetus command is tien executed to various eddresses in 
each eveilable memory 4k word block. The various eddresses 
$ ere determined by floating a 1 then a 0 through the address bits. 
TEST STEPS: 
BEGIN 
; Write to TSSR to soft initialize 
Do ea WRITE CHARACTERISTICS to setup a message buffer 


-SBTTL TEST 3: OMA MEMORY ADDRESSING 


; TEST 3 
TEST DESCRIPTION 


This test verifies that the controller cen properly eddress and 
access ell available CPU memory (other than that occupied by the 
diagnostic and diagnostic supervisor code) for both reading (DATI) 
and writing (DATO). Verified ere the LSI-11 Bus drivers for all 
aveileble address lines. Up to this point only 16 bite have been 
used for OMA transfers. 


TEST STEPS 
REPEAT FROM 1 TO LOOPCNT 
BEGIN 
Verify GET STATUS selected locations 


- Verify messege peckets selected locations 
Do Subtest 3 - Verify Characteristic data selected locations 


— Subtest 4 - Verify NXM to selected invalid addresses 
BGNTST vr. 
MOV @TST12ID,RO sASCII MESSAGE TO IDENTIFY TEST 
JSR PC, TSTSETUP 300 INITIAL TEST SETUP 
002216 MOV #10. ,LOOPCNT sPERFORM 10 ITERATIONS 
INC T38FLG 3SET TEST FLAG 
JSR PC ,MEMCK sCHECK MEMORY 
T12L00P : ;LOOP ON TEST LABEL 


os es G+ Ge Se Ge Se Ce Ge Ge Ge Ge Se Ge Ge Ge 


TESTS MACRO M1113 14-JUN-84 15:55 


T - HAROWARE 
test 3: SUBTEST 1: GET STATUS SELECTED LOCATIONS 


510 026410 004737 015774 


S32 026504 005037 002222 
533 026510 005037 030270 
534 026514 012702 030274 


536 026520 005037 003134 


005000 
539 026530 005737 030270 


| 

| 541 026536 016200 177776 
542 026542 042700 177774 

bse! Oe 012737 1 

| $44 026554 004737 031276 


END 


;Write to TSSR to soft initialize 
JSR SOF INIT 


PC, 
BCS 15$ 
NEXT . ERRNO 
MOV RO,R1 
ERRDF ERRNO,SFIERR,SFIMSG 


ENO 


SEQ 0114 


a SELECTED VALID ADDRESSES IN DIAGNOSTIC FREE SPACE AND ABOVE 32K 


Get e valid modulo-4 test address 
Do a GET STATUS command from the test address 


3//////////// BEGIN SUBTEST ////////// 
T3.1: 
TRAP C$6SU8 


s00 SOFT INIT OF CONTROLLER 
sBR IF SOFT INIT = OK 


sSAVE CONTENTS OF 7SSR 
sDEVICE FATAL ERROR se 


CSEROF 
-WORD 301 
-WORD SFIERR 
-WORD SFIMSG 


vy e WRITE CHARACTERISTICS to setup a message buffer 


17%: 


big ae SE R4 
= TAL. : — 


RRNO 
RROF ERRNO, TL2WRTSSR,PKTSSR 


sGET THE ADDRESS OF COMMAND PACKET 

weer gee Mg ag TO STARTING VALUES 
T 

sWAIT FOR SSR TO SET 


;8R IF SSR SET IN CHKTSSR 
sSAVE CONTENTS OF TSSR 


sDEVICE FATAL SSR FAILED TO SET 
TRAP 


CsEROF 
-WORD 302 
-WORD  T12WRTSSR 
-WORD PKTSSR 


sVerify e Get Status can be ee from each address 


sGet ea valid modulo-4 test addres 


3:Do a "Ger STATUS  oeenane from A ag test eddress 


20%: 
CLR 


MOV 
T121L00P ; 


T12KT 
#T12BLK ,R2 
KTENABLE 
(R2)+,R1 
RO 

T12KT 


-2(R2), 

ye al RO 
#1,K 

PC, TISCONVERT 


sCLEAR FATAL ERROR FLAG 
sTEST ABOVE 28K SWITCH 
;POINT TO TEST PATTERN TABLE 


17 -N OFF ABOVE 26K TEST FLAG 
bie 3 ~ TEST PATTERN ADDRESS 
+ SUME NO TEST ABOVE 28K 
s1eST ABOVE 26K THIS TIME? 


:BR 
;GET TEST PATTERN AGAIN 
sSAVE 18 BIT ADDRESS 
3 TURN V' 8K TEST FL 
}CONVERT TEST PATTERN TO TEST ADDRESS 


TSVS - HARDWARE 
TEST 3: SUBTEST 


TESTS 
1: GET 


MACRO M1113 14-JUN-864 15:55 
STATUS SELECTED LOCATIONS 


1 
177774 
017274 
000000 
016336 


030426 
026520 
030270 
003132 


000001 
030274 


026520 
017274 


002222 
017202 


030270 


32%: 


40$: 
65$: 


70$: 


100%: 


PC, TI2SETGET 

BIC @tC<A1716>,R3 

BIS R3,R4 

JSR PC ,.KTOFF 

MOV R4, TSOBCRS) 

JSR PC ,.CHKTSSR 
32% 

BCS 40% 

MOV oR1 

NEXT .E 

ERROF ERRNO, TI2GETSSR,PKTGETS 

CKLOOP 

FORCEXIT 80% 

CMP R2, OTL2TBE 

BHIS 70$ 

JP T121L00P 

TST T12KT 

BGT 80% 

TST KTFLG 

BEQ 80% 

MOV #1, T12KT 

MOV @T12BLK ,R2 


JMP T121L00P 
JSR PC ,.KTOFF 


TST FATFLG 
100$ 
JSR PC ,CKDROP 


SEQ 0115 


sBR IF INVALID PACKET ADDRESS 

sCOPY CURRENT PACKET LOW ADORESS 
sCOPY CURRENT PACKET HIGH ADDRESS 
sSETUP CURRENT a TO GET STATUS 
sSAVF ADDRESS BITS 17+16 

sSETUP 186 BIT PACKET ADDRESS 

s TURN OFF KT-11 

sSET THE PACKET ADDRESS TO EXECUTE 
sWAIT FOR SSR TO SET 


BR IF SSR SET IN CHKTSSR 
i SAVE CONTENTS OF TSSR 


sDEVICE FATAL SSR FAILED TO SET 
TRAP 


CSEROF 
-WORD 303 
-WORD T12GETSSR 
-WORD PKTGETS 
sLOOP ON ERROR, IF FLAG SET 
TRAP CSCLP1 


sDONE ALL TSTBLK TEST PATTERNS? 
sBR IF YES 

300 ANOTHER MODULO- 4 ADDRESS 
sOONE ABOVE 28K TESTING 100? 

s6R IF YES 

ha ABOVE 28K ON SYSTEM? 


;BR 
3SET SWITCH 
sRESET TEST PATTERN TABLE 


11 
s\ANANANANANNN END SUBTEST \NANNANNAANNS 
L10043: 


TRAP CsESUB 
sANY FATAL ERRORS ? 
ANCH IF NOT 


a 
sTRY TO OROP THE UNIT 


-SBTTL TEST 3: SUBTEST 2: MESSAGE PACKETS TO SELECTED LOCATIONS 
see 
; TEST 3: SUBTEST 2: 


SUBTEST DESCRIPTION: 


This subtest verifies the controller can deposit messege packets 
to ell aveileble memory locations. 


Write Cherecteristice commands are executed with mes 
eddresses set to verious addresses in each avai 


buffer 
memory locetion. 


able 


The verious eddresses are determined by floating a 1 then a 0 


through the eddress bits. 


TEST STEPS: 


a rs ee ee ee —_—_———_- 


641 027064 042701 000003 BIC 3,R1 sGET RID OF A1l7 AND Al16 


+ 
M9 | 
\T - HARDWARE TESTS MACRO M1113 14-JUN-84 15:55 SEQ 0116 
test 3: SUBTEST 2: MESSAGE PACKETS TO SELECTED LOCATIONS 
595 ; BEGIN 
596 3 Write to TSSR to soft initialize 
597 : Do ea WRITE CHARACTERISTICS to setup a message buffer to compere 
598 3 
599 $ tor tog SELECTED ADDRESSES IN DIAGNOSTIC FREE SPACE AND ABOVE 32K 
600 F 
601 : Get ea valid modulo-4 test eddress 
602 : Set the et buffer to the TEST ADDRESS 
| 603 3 Do ea WRITE CHARACTERISTICS 
604 ; Restore the test message buffer to beckground pattern 
605 3 END 
| 606 ; END 
609 026746 BGNSUB 3s//////////// BEGIN SUBTEST ////////// 
026746 73.2: 
026746 104402 TRAP Cs$BSuUB 
610 
611 
612 sWrite to TSSR to soft initialize 
6135 626750 004737 015774 JSR PC, SOF INIT 300 SOFT INIT OF CONTROLLER 
614 026754 103405 BcS 15% 36R IF SOFT INIT = OK 
615 026756 NEXT. ERRNO 
616 026756 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 
617 026760 ERROF ERRNO,SFIERR,SFIMSG sDEVICE FATAL ERROR DURING INIT 
026760 104455 TRAP CSEROF 
026762 000460 -WORD 304 
026764 003652 -WORD SFIERR 
aan 026766 012034 -WORD SFIMSG 
619 :Do a WRITE CHARACTERISTICS to setup e message buffer to compare 
620 026770 15%: 
621 026770 012704 030220 MOV Oh en 3 R4 sGET THE ADDRESS OF COMMAND PACKE 
622 026774 004737 031600 JSR PC. T12SWR iSET PACKET TO WRITE CHARACTERISTICS 
623 027000 004737 017274 JSR PC .KTOFF ;TURN OFF KT-11 
624 027004 010465 000000 MOV R4, TSOBCRS) sSET THE PACKET ADDRESS 
625 027010 004737 016336 JSR PC, CHKTSSR sWAIT FOR SSR TO SET 
626 027014 FORCERROR 17$ 
627 027030 103405 Bcs 20% ;BR IF SSR SET IN CHKTSSR 
628 027032 010001 MOV RO,R1 ) SAVE CONTENTS OF TSSR 
629 027034 NEXT .ERRNO 
630 027034 17$: ERRDF ERRNO,TI2WRTSSR,PKTSSR ;DEVICE FATAL SSR FAILED TO SET 
027034 104455 TRAP CSERDOF 
027036 000461 .WORD 305 
027040 030532 .WORD T12WRTSSR 
sy 027042 012046 . WORD PKTSSR 
| 632 sGet e py ot — Hy  gareee 
633 Set ye paactentstic fer to the test address 
| 634 3:00 ae WRITE Chanae TER srits 
635 027044 005037 002222 20%: CLR ;CLEAR FATAL ERROR FLAG 
636 027050 012703 030274 MOV OTI2BcK, R3 sPOINT TO TEST PATTERN TABLE 
637 027054 T122L00P : 
638 027054 012301 MOV (R3)+,R1 3GET TEST PATTERN ADDRESS 
639 027056 010100 MOV R1,RO0 sGET ADDRESS ALL “18 BITS” 
640 027060 042700 177774 BIC 0177774 ,RO sLEAVE ONLY A17 AND Al6 
| 
| 





TSVS - HARDWARE 
TEST 3: SUBTEST 


642 027070 


657 027172 

027172 
6SE 027174 
659 he 


660 027204 
661 027210 


N9 
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2: MESSAGE PACKETS TO SELECTED LOcatrons 


004737 031276 
000137 027174 

030220 
004737 scenes 


020327 030426 


000137 027054 
004737 017274 


005737 002222 
004737 017202 


030230 
030232 


JSR PC, TI2CONVERT sCONVERT TEST PATTERN TO TEST ADDRESS 


Bcs 25% sBR IF VALID MESSAGE BUFFER ADDRESS 
JMP 150% sGET ANOTHER TEST PATTERN TO TRY 
25%: MOV @T12PACKET ,R4 +SET THE COMMAND PACKET ADDRESS 
JSR PC, TI2SWRT sSETUP TI2PACKET TO WRITE CHAR. 
MOV TI2LOAD0, TI2DATA sSETUP LOW ORDER MESSAGE BUFFER ADD. 
MOV TI2HIADD , TL2EDATA+2 ;SETUP HIGH ORDER MESSAGE BUFFER ADD. 
JSR PC ,KTOFF ;TURN OFF KT-11 
MOV R4, TSOBCRS) ;SET THE PACKET ADORESS TO EXECUTE 
JSR PC,CHKTSSR ;WAIT FOR SSR TO SET 
FORCERROR 32$ 
BcS 50% ;BR IF SSR SET IN CHKTSSR 
MOV RO,R1 ;SAVE CONTENTS OF TSSR 
NEXT . ERRNO 
328: ERROF ERRNO,TI2WRTSSR,PKTSSR ;DEVICE FATAL SSR FAILED TO SET 
TRAP CSERDF 
-WORD 306 
-WORD T1I2WRTSSR 
-WORD PKTSSR 
50$: CKLOOP ;LOOP ON ERROR, IF FLAG SET 
TRAP CS$CLP1 
150$: 
FORCEXIT 160$ 
CMP R3, @TL2OTBE ;DONE ALL TSTL2BLK TEST PATTERNS? 
BHIS 160$ ;BR IF YES 
JMP T122L00P 300 ANOTHER MODULO- 4 ADDRESS 
160$: JSR PC ,.KTOFF ;TURN OFF KT11 
ENOSUB s\ANNAANNANANN END SUBTEST NANNANNANAANA 
110044: 
TRAP CsESUB 
TST FATFLG sANY FATAL ERRORS ? 
BEQ 180$ sBRANCH IF NOT 
onee JSR PC ,CKDROP ;TRY TO DROP THE UNIT 


-SBTTL TEST 3: SUBTEST 3: CHARACTERISTIC DATA SELECTED LOCATIONS 
3¢¢ 
; TEST 3: SUBTEST 3: 
é 
SUBTEST DESCRIPTION: 


Write to TSSR to soft initialize 
REPEAT FOR SELECTED VALID ADDRESSES IN DIAGNOSTIC FREE SPACE AND ABOVE 32K 


8 
3 

: This subtest verifies the controller can fetch a 

3 Write Cherecteristics data block from all available 

3 memory locations. 

3 Write Characteristics commands are executed with 

3 characteristic date blocks at various memory addresses. 
3 The various memory eddresses ere pr lan ie by floating 
H e 1 then a O through the address bits. 

F 

; TEST STEPS: 

; 

$ BEGIN 

3 


MACRO M11 


706 027240 004737 015774 


030262 

031710 

7% 

737 027402 004737 017274 
000000 

739 027412 004737 016336 


B10 
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test 3 3: SUBTEST 3: CHARACTERISTIC Hath SELECTED LOCATIONS 


003134 


BEGIN 
Get e velid test 


teet emote 5 
Store e 


END 


sWrite to TSSR to soft initielize 
JSR PC SOF INIT 


SEQ 01186 


eddress 
Set the test pecket cherecteristics duets pointer t- the 


ed cherecteristic dete in test eddress block 
Do e WRITE CHARACTERISTIC Command 


34/////1///// BEGIN SUBTEST ////////7/7/ 
73.3: 
TRAP Cs6sus 


100 SOFT INIT OF a 


6cs 36R IF SOFT INIT = 
NEXT . ERRNO 
MOV RO,R1 sSAVE CONTENTS OF TSSR 
ERROF ERRNO, SFIERR,SFIMSG sDEVICE FATAL ERROR OURING INIT 
TRAP CsEROF 
-WORD 307 
-WORD SFIERR 
. WORD SF IMSG 
sGet e velid test sddress 
208: CLR FATFLG sCLEAR FATAL ERROR FLAG 
T12KT sTEST ABOVE 26K SWITCH 
mene. @T120LK ,R3 sPOINT TO TEST PATTERN TABLE 
CLR KTEMAGL E sTURN OFF ABOVE 26K TEST FLAG 
MOV (R3)>,R1 1GET TEST PATTERN ADORESS 
MOV 3GET ADORESS ALL “16 BITS" 
BIC 177774 RO sLEAVE ONLY Al7 AND Al6 
BIC @3,A1 sGET RID OF Al? AND Al6 
TST T12KT sTEST ABOVE 26K THIS TIME? 
BEQ 25% IF 
MOV -2(R3),RO sGET TEST PATTERN AGAIN 
BIC @?C<A1716>,RO sSAVE 16 BIT ADDRESS ONLY 
@1 .KTEMABLE Py ABOVE 20K TEST FLAG 
25%: JSR PC, TL2ZCONVERT CONVERT TEST PATTERN TO TEST ADDRESS 
ecs 308 s6R IF VALID TEST ADORESS 
a £08 sGET NEXT TEST PATTERN 
3Set the test pecket et cherecteristice date inter to the test eddress 
30s: MOV fa nay 5 Ra r) ADORESS OF 
JSR PC. TI2ZSURT sRESTORE PACKET TO STARTING VALUES 
MOV TLIZLOADD , PKLOMC sSTORE CHAR. DATA PTR ADORESS 
MOV TI2ZHIADO , PKHICR4 ) sSTORE CHAR. DATA PTR HIGH ADORESS 
JSR PC.T sSTORE EXPECTED DATA IN CATA BLOCK 
1Do @ WRITE CHARACTERISTIC commend 
PC .KTOFF 3s TURN OFF KT-11 
MOV a4, TSOB(RS) 3SET THE PACKET +e TO EXECUTE 
JSR PC ,.CHKTSSR sWAIT FOR SSR TO SE 
BCS 406 s8R IF SSR SET IN CHKTSSR 
MOV RO,R1 1 SAVE CONTENTS OF TSSR 


C10 


14-JUN-64 15:55 SEQ 0119 


13 
DATA SELECTED LOCATIONS 


TSVS - HARDWARE TESTS MACRO M11 
TEST 3: SUBTEST 3: CHARACTERISTIC 


743 027436 NEXT .ERRNO 
744 027436 328; ERRDF ERRNO, TI2WRTSSR.PKTSSR ;DEVICE FATAL SSR FAILED TO SET 
02743S$ 104455 TRAP CSEROF 
027440 000464 .-dORD 306 
027442 030532 -WORD TI2WRTSSR | 
027444 012046 . WORD PKTSSR 
745 027446 40%: CKLOOP sLOOP ON ERROR, IF FLAG SET 
027446 108406 TRAP CSCLPi1 
746 027450 608: 
747 G27450 020327 030426 CMP RS, OTIZ2TBE sO00ME ALL TSTBLK TEST PATTERNS? 
748 027434 103002 BHIS 658 36R IF VES 
749 027456 000137 027274 JP T1i23L00P 300 ANOTHER MODULO- 4 ADDRESS | 
750 027462 005737 030270 65%: TST TI2KT s00NE ABOVE 26K TESTING 100? 
751 027466 003012 BGT 708 VBR IF ves 
752 027470 005737 003132 TST KTFLG sANY MEMORY ABOVE 28K ON SYSTEM? 
753 027474 001407 BEQ 70% s6R IF NO 
| 754 027476 012737 000001 030270 MOV #1, T12KT 3SET SWITCH 
755 027504 012703 030274 MOV @T12BLK RS sRESET TEST PATTERN TABLE 
756 027510 000137 027274 up T123L00P ;00 ABOVE 26K TESTING 
757 027514 004737 017274 708: JSR PC .KTOFF sTURN OFF KT11 
758 027520 ENDSUB eNNNNNANANANNS END SUBTEST \ANANANAAAY } 
027520 110045: 
7520 104403 TRAP Csesus 
759 027522 005737 002222 TST FATFLG sANY FATAL ERRORS ? 
760 027526 001402 BEQ 758 sBRANCH IF NOT 
| 761 027530 004737 017202 JSR —s- PC, CKDROP TRY TO DROP THE UNIT 
= 027534 75$: 
a4 .SBTTL TEST 3: SUBTEST 4: NXM TO SELECTED INVALID ADDRESSES 
see 
bag s TEST 3: SUBTEST 4: 
8 
a 3; SUBTEST DESCRIPTION: 
$ 
770 3 This euotest verifies the NXM error bit in the TSSR 
771 s ister is set when attempting tw fetch dete (ea characteristic 
772 3 e@ bleck) from elected nonexistent locetions. 
773 3 re¢ ot feile to eet it ie likely thet en LSI-11 Bus driver is 
774 3 failing to eseert en eddress line 
775 3 Addresses tested inotade ell soubinebions of high-order eddress 
| 7% 8 bite (i.e bite 16-21). 
or 3 SSOSOOSEKSSHOHSHA SS HSSOLSOSHAAHSS SHSHHSOSASHSHHSHOSHHSOSLMEADHSEOREEE 
PF 
779 : 
780 5 The LSI BUS drivers for ell eveileble eddress lines( 16-21) 
761 F ere only po —_ running on e 11/238 system with more than 
7 F 
aos t SOCSEHOSSEHSHEEHSSOSERESOEHHHEHSASCHHKFHAHGEAGCHAVAHEDAHSAARHASSHSEDHSL SBSH 
3 
785 s TEST STEPS: 
i 786 : 
787 s BEGIN 
768 ’ Write to TSSR to soft initielize 
789 F Do e write cherecteristic commend 
re 3 Invert the extended features switch 
$ 
3 


REPEAT FOR SELECTED NON-EXISTENT MEMORY ADDRESSES 





02 
837 027670 
027670 


MACRO M1115 


T - HARDWARE TESTS 
test 3: SUBTEST 4: NXM TO SELEC 


003144 
002120 
030146 
003136 
030146 


015774 


030220 
031600 
003134 
000000 


016336 


te INV yaL 


007777 


JUN-84 15:55 
ID ADDRESSES cetpedlaencin 
: BEGIN 
; Get en invelid test eddress 
; Set the test pecket cherecteristics dete pointer to the 
3 test eddrese. 
; Do e WRITE CHARACTERISTIC commend 
; ne If TSSR register NXM bit not set then print error message 
: 
PF END 
-— 
BGNSUB TW AAAAAAALLAL a ¥ SUBTEST /////////7/ 
4: 
TRAP Cs6SuU8 
TST T23A 326-APR-63 REV B - CHK FOR 23A CPU 
BEQ S$ 326-APR-63 REV B - BR, IF NOT 23A 
CMP LSHIME ,07777 326-APR-63 REV 6 - CHK FOR > 256KB 
BLO 5$ 326-APR-63 REV 6 - BR, IF < 256KB 
- JP NOEXTF 326-APR-63 REV B - JP OVER 256KB8 
: TST NXMFLG :GOT FNOUGH MEMORY? 
BNE 103 sIF SET STAY 
JP NOEXTF sLEAVE IF NOT SET 


sWrite to TSSR to soft initielize 


10%: JSR PC ,SOF INIT s00 SOFT INIT OF CONTROLLER 
Bcs 11% BR IF SOFT INIT = OK 


NEXT .ERRNO 
MOV RO,R1 sSAVE CONTENTS OF TSSR 
ERROF  ERRNO,SFIERR,SFIMSG s;DEVICE FATAL ERROR OURING INIT 
TRAP CSEROF 
-WORD 309 
-WORD SFIERR 
-WORD SF IMSG 
sDo e WRITE CHARACTERISTIC commend so to invert switch 
11%: CKLOO? sLOOP IF SELECTED 
TRAP CSCLP1 
Mov @T12PACKET ,R4 sGET THE ADDRESS OF COMMAND PACKET 
JSR PC, TLI2SWRT sRESTORE PACKET TO STARTING VALUES 
CLR KT E 3TURN OFF KT-11 
MOV R4, TSOBC(RS) sSET THE PACKET ADORESS 
- os, sWAIT FOR SSR TO SET 
6cs 17% 36R IF SSR SET IN CHKTSSR 
a. RO,R1 sSAVE CONTENTS OF TSSR 
158: ERROF ERRNO, TI2WRTSSR,.PKTSSR ;DEVICE FATAL SSR FAILED TO SET 
TRAP CSEROF 
-WORD 310 
.WORD TI2WRTSSR 
.WORD PKTSSR 
17%: CKLOOP 3LO0P iF SELECTED 
TRAP CsCLP1 


oe 


E10 
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TSVS - SEQ 0121 
TEST 3: SUBTEST 4: NXM TO SELECTED INVALID ADDRESSES 


838 027672 004737 021142 JSR PC, INVERT s INVERT THE SWITCH 

839 

840 3Get an invelid test eddress 

641 

842 027676 005037 002222 203%: CLR FATFLG sCLEAR FATAL ERROR FLAG 

643 027702 253: 

844 027702 013737 003142 030262 MOV NXMHI, TL2HIADD sSAVE TEST ADORESS HIGH 

845 027710 013737 003140 030264 MOV NXMLO, TL2L0AD00 sSAVE TEST ADORESS LOw 

846 027716 T124L00P : 

647 

848 ;Set the test pecket cherecteristics dete pointer to the 

a4 : test eddress. 

8651 027716 012704 030220 308: MOV @TL2PACKET ,R4 sGET THE ADORESS OF COMMAND PACKET 

852 027722 004737 031600 JSR PC,T T sRESTORE PACKET TO STARTING VALUES 

853 027726 013764 030264 000002 MOV T1L2LOAD0 , PKLOW(R4 ) sSTORE CHAR. DATA PTR LOW ADORESS 
MOV TLI2HIADD , PKHICR4 ) sSTORE CHAR. DATA PTR HIGH ADORESS 


4 027734 013764 (30262 000004 


856 Do @ WRITE CHARACTERISTIC commend 
857 027742 004737 017274 JSR PC, KTOFF TURN OFF KT-11 
858 027746 010465 000000 MOV «RA, TSDBCRS) SET THE PACKET ADORESS TO EXECUTE 
859 027752 004737 016250 JSR —s- PC. WAITF ;WAIT FOR SSR TO SET 
860 027756 F 
861 027772 103407 ecS. «408 :@R IF SSR SET IN CHKTSSR 
862 027774 010001 MOVs RO, RI SAVE CONTENTS OF TSSR 
863 027776 NEXT . ERRNO 
864 027776 328: ERRNO, TI2WRTSSR.PKTSSR DEVICE FATAL SSR FAILED 10 SET 
027776 104455 TRAP C$ 
030000 000467 WORD (311 
030002 030532 “WORD TL2WATSSR 
030004 012046 PKTSSR 
86S 030006 005237 002222 INC _—‘FATFLG :SET FATAL ERROR FLAG 
866 030012 40$:  CKLOOP sLOOP ON ERROR, IF FLAG SET 
030012 104406 TRAP C$CLP1 
867 030014 FORCERROR 45$,.NOTSSR 
868 030024 ESCAPE SUB BY-PASS SUBTEST IF FATAL ERROR 
030024 104410 TRAP CSESCAPE 
a ee If TSSR register NXM bit not set then print ; nett: 
; register it not se print error message 
870 030030 45s: 
871 030030 016501 000002 MOV _—s- TSSRCRS).R1 :GET TSSR CONTENTS 
872 030034 7 523 
873 030050 032701 004000 BIT ONXM, RI iNXM SET? 
874 030054 001012 i@R IF YES 
875 030056 NEXT . ERRNO 
876 030056 013737 030264 002240 52s: MOV  T12LOADD,ERRLO MEMORY TEST ADORESS LOW 
877 030064 013737 030262 002236 MOV _—s TL2HTADD | ERRHI IMEMORY TEST ADORESS HIGH 
878 030072 ERRHRD ERRNO, TLONXM, ADOSSR SREPORT ADORESS AND TSSR ERROR 
030072 104456 TRAP CSERHRD 
030074 000470 \WORD 312 
030076 031167 "WORD -T12NXM 
a9 030100 012126 "WORD  ADOSSR 
880 030102 60$:  CKLOOP ;LOOP ON ERROR, IF FLAG SET 
030102 104406 TRAP CSCLP1 
881 030104 FORCEXIT 908 
882 030114 005737 003144 1ST ‘T23A sIS IT A 11/230? 


I ne a ne ee ee a 
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TEST 3: SUBTEST 4: NXM TO SELECTED INVALID ADORESSES 
883 030120 001012 BNE 90% sYES WERE DONE 
8864 030122 013700 030262 MOV T1I2HIADD ,RO sGET CURRENT HIGH ADDRESS 
885 030126 005200 653: INC RO 3GET NEXT ADORESS 
886 030130 020027 000077 CMP RO, 077 sDONE A21-A16? 
887 030134 101004 BHI 90$ 3BR IF YES 
888 030136 010037 030262 758%: MOV RO, TL2HIADD sSETUP NEW HIGH ORDER ADDRESS 
889 030142 000137 027716 JP T124L00P 300 ANOTHER NON-EXISTENT ADDRESS 
890 030146 90%: 
891 030146 NOEXTF : 
692 030146 004737 017274 JSR PC ,.KTOFF s TURN OFF KT11 
693 030152 ENOSUB sV\ANNAANNAAANS END SUBTEST VANAA\AA\A\ 
030152 10046: 
030152 104403 TRAP CsESsSuB 
894 030154 005737 002222 TST FATFLG sANY FATAL a ? 
695 030160 001402 BEQ 100% sBRANCH IF 
896 030162 004737 017202 JSR PC ,CKDROP sTRY TO bor UNIT 
897 030166 004737 016456 100$: JSR PC, TSTLOOP sSHOULD WE DO ITERATIONS? 
8986 030172 103002 Bcc 105% 18R IF NO 
899 030174 000137 026406 JP T12L00P }LOOP UNTIL ITERATION COUNT DONE 
900 030200 105$: 
901 030200 004737 017274 JSR PC ,.KTOFF 3; TURN OFF MEMORY MANAGEMENT 
902 030204 005037 003150 CLR T38FLG ICLEAR TEST FLAG 
903 030210 EXIT TST ;ALL DONE THIS TEST 
030210 104432 TRAP CSExIT 
030212 001540 . WORD L10042-. 
304 
905 
906 3° 
907 ;LCCAL STORAGE FOR THIS TEST 
908 - 
309 
911 030220 -*¢,¢10>€177770 
913 030220 T12PACKET: sCOMMAND PACKET FOR TEST 
914 030220 160004 . WORD 100004 i WRITE CHARACTERISTICS COMMAND, WITH ACK 
915 030222 030230 “WORD  TI2DATA sADORESS OF CHARACTERISTICS BLOCK 
916 030224 -WORD O 
44 030226 000010 -WORD 8. sSTARTING VALUE OF BLOCK SIZE 
919 030230 TL2DATA: sCHARACTERISTICS DATA BLOCK 
920 030230 030242 -WORD T12BFR sLOW ADORESS OF MESSAGE BUFFER 
921 030232 “WORD sHIGH ORDER OF MESSAGE SUFFER 
922 030234 000016 -WORD 14. sLENGTH OF MESSAGE BUFFER 
= 030236 000000 000000 -WORD 0,0 
_ 030242 TI2BFR: .BLKW 8. sMESSAGE BUFFER 
927 030262 000000 TI2HIADD -WORD O sHIGH ADORESS 
000000 T12LOADD0 -WORDB O sLOW ADDRESS 
929 000000 T12PAR6 -WORD O sADORESS IN PAR FORMAT 
930 030270 000000 TI2KT: -WORD O ;TEST ABOVE 28K SWITCH 
a 030272 000000 T124TST: . WORD 0 sADDRESS TEST BIT 
3¢ 
933 ; 
934 sTABLE OF ADDRESSES 
ons : 


36 * 
937 030274 000001 T12BLK: .WORD 000001 


TSVS - HARDWARE 
TEST 3: SUBTEST 


938 030276 
939 030300 
302 


Ht 


994 031167 


TESTS 


MACRO M111 


3. 14-JUN-64 15:55 


4: NXM TO SELECTED INVALID ADDRESSES 


SSSSSSSSSSSSSSSSSSSSSSRSSSSSSSSSSO0555 55858 


T12TBE: . WORD 


SEQ 0123 


3¢ 
sLOCAL TEXT MESSAGES FOR TEST 


| 


‘OMA Memory Addressing’ 

‘Contente of TSSR Incorrect After GET STATUS’ 

‘Contents of TSSR Incorrect After WRITE CHARACTERISTICS’ 

ae Buffer Contents Incorrect After WRITE a 
eckground Pettern Disturbed By WRIT ve CHARACTERISTICS’ 

‘expented Interrupt Not Received On WRITE CHARACTERISTICS’ 


‘Write Cherecteristic dete in ram does not match expected’ 
‘TSSR NXM bit failed to set when non-existent memory eddress specifi 





: ADORESS 
1051 031446 004737 017316 JSR PC, SETMAP sRETURN PARS BIASED ADDRESS IN RO 


TSVS - HARDWARE TESTS MACRO M1113 14-JUN-84 15:55 SEQ 0124 
TEST 3: SUBTEST 4: NXM TO SELECTED INVALID ADDRESSES 
995 EVEN 
996 
997 
998 
999 ;ROUTINE TO CONVERT A TEST PATTERN TO A VALID ADDRESS IN DIAGNOSTIC FREE SPACE 
1000 3 DIAGNOSTIC FREE SPACE IS ~— THE END OF THE DIAGNOSTIC AND THE 
1001 3 BEGINNING OF THE SUPERVISOR. THIS IS ALWAYS BELOW 24K 
1002 3 IF MEMORY ABOVE 26K SPECIFIED (VIA R1) THEN PAR 6 IS SET 
1003 3 TO THE RELOCATION BASE. 
1004 3 
1005 3; INPUTS 
1006 3 
1007 3 RO HIGH ORDER ADDRESS BITS 
1008 3 Ri LOW ORDER ADDRESS BITS 
1009 8 
| 1010 : OUPTUTS: 
1011 3 T12PAR6 = ADDRESS BIASED TO PARG6 IF >26K UNDER TEST 
1012 3 TI2HIADD = HIGH ORDER ADDRESS IN NON PARG FORMAT 
1013 3 T12LOADD = LOW ORDER ADDRESS IN NON PARG FORMAT 
1014 8 C BIT «1 SS RE 
eer 3 C BIT = O IF TEST PATTERN DID NOT YIELD A VALID ADORESS 
3- 
1017 031276 TL2CONVERT: 
1018 031276 SAVREG sSAVE R1-RS UNTIL NEXT RETURN 
1019 031302 005037 030264 CLR T12L0AD00 sCLEAR LOW ADORESS 
1020 031306 005037 030262 CLR TI2HIADD sCLEAR HIGH ADDRESS 
1021 031312 005037 030266 CLR T12PAR6 sCLEAR PARG BIASED ADDRESS 
1022 031316 042701 170000 BIC @tC<7777>,R1 sFORCE TO LOWER 12 BITS OF ADDRESS 
1023 031322 010005 MOV RO,.RS sSAVE HIGH ORDER ADORESS BITS 
1324 004737 017274 JSR PC ,.KTOFF 3 SHUTOFF 
1025 031330 013702 003124 MOV FREE ,R2 sGET FIRST FREE ADORESS 
1026 031334 062702 000020 ADD #16. ,R2 3iN CASE TEST PATTERN=0 
1027 031340 060102 ADO R1,R2 sADO IN TEST PATTERN 
1026 031342 042702 BIC @3,R2 sMAKE IT MODULO-4 
1029 031346 013703 003130 25% MOV FREEHI RS IGET LAST FREE ADORESS 
1030 031352 162703 SUB #16. ,R3 i SAVE AT LEAST 8 WORDS (CIN CASE MESSAGE BUFFER) 
1031 031356 010237 030264 MOV R2,T12L0ADD sSAVE POSSIBLE LOW ADORESS 
1032 031362 010237 030266 MOV R2, T12PAR6 sSAVE IT IN PAR6 BIASED TOO 
1033 031366 020203 CMP R2,R3 3IS THIS ADORESS ABOVE FREE SPACE? 
1034 031370 101007 BHI 36R IF YES 
1035 031372 020237 003124 Cep Re, FREE 31S IT IN FREE SPACE? 
1036 031376 103007 BHIS § 36R IF YES- ITS GOOD 
1037 031400 005737 003134 TST KTENABLE 3sTES 6K? 
1038 031404 001004 BNE $ 36R IF YES 
1039 031406 000424 BR 90% 38R IF NOT IN FREE SPACE 
1040 031410 162702 000020 35%: SUB #16. .R2 sFORCE FIT THE TEST PATTERN 
1041 031414 000754 BR 25% sTRY THIS TEST PATTERN ADDRESS 
1042 031416 50$: 
1043 031416 005737 003134 TST KTENABLE sTESTING ABOVE 28K? 
1044 031422 001420 BEQ 100% :6R IF 
1045 031424 005737 003132 TST KTFLG sANY MEMORY ABOVE 28K? 
1046 031430 001413 BEQ 90% 38R IF NO 
1047 031432 004737 017256 JSR PC,KTON 3 TURN ON MEMORY MANAGEMENT 
| 1048 031436 010500 MOV RS ,RO ;GET HIGH ORDER ADORESS 
1049 031440 010037 030262 MOV RO, TL2HIADD sSAVE POSSIBLE HIGH ADORESS 
| 1050 031444 010201 MOV R2,R1 sGET COMPUTED LOW ORDER 





TSVS - HARDWARE 
TEST 3: SUBTEST 
1052 031452 
1053 031456 


1086 031470 
1087 031470 
1068 031474 


1107 031566 
1108 031570 


————— —- ee ee ee —— -—- son —_ 


I10 


SEQ 0125 
RO, TL2PAR6 sCOPY PAR6 BIASED ADDRESS 
105$ sBR IF VALID ADORESS 
;CLR C BIT FOR FAILURE 
105$ $ 
sSET SUCCESS 
PC ;RETURN 


: 
sROUTINE TO READ THE FIRST 2 BYTES FROM RAM 
sMEMORY AND COMPARE THIS DATA TO A COMMAND PACKET. 


ADORESS OF THE COMMAND PACKET 
FIRST DEVICE UNIBUS ADDRESS 


SET - RAM MATCHES PACKET 


CLR - RAM DOES NOT MATCH PACKET 


PC, SR 
TSBACRS),(R1) 
(R1)+, CRE) 
20% 


R3 

R2 

R2, ORMPKTBEG+2 
10% 


R3 
30% 


50% 


TESTS MACRO M1113 14-JUN-84 15:55 
4: NXM TO SELECTED INVALID ADDRESSES 
010037 030266 MOV 
103403 Bcs 
000241 90% CLC 
000401 BR 
000261 100$: SEC 
000207 105$: RTS 

3¢ 

8 

3; INPUT: 

3 

3 R4 

3 RS 

3 

3 OUTPUT 

8 

3 CARRY 

PF 

3 

sIMPLICIT OUTPUT: 

3 

PF 

; DATA HELO IN R 

3 

3 

;SIDE EFFECTS: 

3 

F 

3 

t iad 

T12CKRAM: : 

SAVREG 
012701 002242 MOV 
012702 000201 MOV 
005003 CLR 
737 016336 JSR 
112765 000000 000000 MOVB 
004737 016336 108: JSR 
010265 000000 MOV 
004737 016336 JSR 
116511 000000 MOvVB 
124 CMPB 

001401 BEQ 
005203 INC 
005202 20% INC 
020227 000203 
002761 BLT 
005703 TST 
001402 BEQ 
000241 CLC 
000401 BR 
000261 SEC 


30%: 
012737 000002 002302 50%: MOV 


@2,R8AMSIZ 


THE TABLE my IS FILLED WITH THE 
RAMSIZ SET 102 2 FOR PRAMPKT ROUTINE 


THE SUBSYSTEM IS LEFT IN MAINTENANCE MODE 


sSAVE THE one REGISTERS 

sADORESS TO SAVE THE RAM DATA 

sBYTE ADDRESS OF tee RAM DATA 
AR ERROR FLAG 


;COMPARE TO Des te 

sBRANCH IF 

;SET ERROR F FLAG 

sADORESS OF ~ oh RAM LOCATION 


sBRANCH IF 

;CLEAR CARRY 10 SHOW ERROR 
sAND EXIT 

sSHOW GOOD COMPARE 

;SETUP RAMSIZ 


- HARDWARE TES 
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tt 031576 


~ 
~ 
~ 
Ve) 
f=) 
wo 
= 
oa 
~ 
fo] 


~ 
ro 
& 
°o 
w 
ras 
z 
°o 


~ 
~ 
& 
°o 
w 
= 
bet 
oS 


i 
1159 031710 


1164 
1165 031732 


— 


Ts 
4: NXM 


000207 


012701 


012700 
013701 
005737 


001402 
013701 


J10 


MACRO M1113 14-JUN-84 15:55 SEQ 0126 
TO SELECTED INVALID ADDRESSES 


003134 


017316 


000017 
100000 


RTS PC sRE TURN 
3¢ 


; 
sROUTINE TO SETUP PACKET TO WRITE CHARACTERISTICS 
5 


T12SWRT: 

SAVREG sSAVE THE REGISTERS 

MOV @T1L2PACKET ,R1 iSTART OF THE PACKET 

MOV #100004,(R1)+ s;WRITE gop eeay ty WITH ACK 

MOV @T12DATA,(R1)+ sADDRESS OF CHAR DATA BLOCK 

CLR CR1)+ sEXTENDED ADORESS 

ay os wecaatial sADORESS OF MESSAGE BUFFER 
+ 

MOV #14. ,(R1)+ sLENGTH OF MESSAGE BUFFER 

CLR (R1i)+ 

CLR (R1) 

RTS PC sRETURN 


3¢ 
;ROUTINE TO SETUP A GET STATUS COMMAND PACKET AT CURRENT PACKET ADORESS 


- HIGH ORDER PACKET ADDRESS 
LOW ORDER PACKET ADDRESS 
NOTE: R3 IS IGNORED IF KTENABLE FLAG CLEAR 


TI2SETGET: 
SAVREG sSAVE THE REGISTERS 
MOV R4,R1 sGET LOW ORDER ADDRESS 
TST K TENABLE sTESTING. ABOVE 28K? 
BEQ 10% :6R I 
MOV R3,RO sGET MIGN ORDER ADORESS 
JSR PC, SETMAP s;RETURN ADDRESS BIASED TO PARG6 IN RO 
MOV RO,R1 sGET ADORESS 
10$: MOV @P .GETSTATUS,RO iGET STATUS COMMAND CODE NO IE 
BIS oP .ACK ,RO 3SET ACK 
MOV RO,CR1)+ sSTORE GET STATUS IN PACKET 
CLR (R1)+ ;CLEAR UNUSED WORD 
RTS PC ;RETURN 


3? 


; 
sROUTINE TO SETUP A CHARACTERISTIC DATA BLOCK AT A TEST ADDRESS 
; 


ie 

TLI2CHAR : 
SAVREG sSAVE R1-RS UNTIL NEXT RETURN 
MOV @T12DATA,RO sGET TL2PACKET DATA POINTER 
MOV T12LOA00 ,R1 sASSUME NOT ABOVE 28K 
TST K TENABLE sTESTING ABOVE 28K? 
BEQ 10$ 36R IF NO 
MOV TL2PAR6,R1 SSET TEST ADDRESS ABOVE 28K 


MOV 68. ,(R1)> }SIZE OF DATA BLOCK IN BYTES 





HARDWARE 
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MACRO M1113 14-JUN-84 15:55 


4: NXM TO SELECTED INVALID ADDRESSES 


104401 


10$: 


Be 


(RO)+,CR1)+ 
CRO)+,CR1)+ 
(RO)+,CR1)+ 
(RO)+,CR1)+ 
(RO)+,(R1)+ 
PC 


sSTORE DATA WORD 
sSTORE DATA WORD 


;STORE DATA WORD 
sRETURN 


Vib whe 


L10042: 


TRAP 


SEG 0127 


| 
CseTsT 


L10 


032100 012034 -WORD SFIMSG 


TSVS - HARDWARE TESTS MACRO M1113 14-JUN-84 15:55 SEQ 0128 
test 3 3: SUBTEST 4: NXM TO SELECTED INVALID ADDRESSES | 
1175 
1176 .SBTTL TEST 4: RAM EXERCISER TEST 
th 3° | 
11 8 ; i 
1179 ;THIS TEST USES THE READ AND WRITE RAM (BOTH SINGLE AND 256 
1180 sLOCATIONS) SELECT CODES OF THE WRITE SUBSYSTEM MEMORY COMMAND 
1181 ;T0 EXERCISE THE CONTROLLER’S RAM MEMORY AND DMA LOGIC 
1182 3 
1183 3° 
1184 031754 BGNTST 
031754 T4:: 
use 
1 
1191 031754 005737 002214 TST TSTCNT sCHECK FOR RUN MODE 
1192 031760 001402 BEQ 10% ;6R, IF NOT ONLY PROGRAM RUN 
1193 031762 005237 903400 INC SKIPT sSET SKIP SW 
1194 031766 012700 034413 10$: MOV @TST1510,RO sASCIT MESSAGE TO IDENTIFY TEST 
1195 031772 004737 016510 JSR PC, TSTSETUP 300 INITIAL TEST SETUP 
1196 031776 012737 000005 002216 MOV @5,LOOPCNT sPERFORM 5S ITERATIONS 
1197 032004 T1SLOOP: 
1198 3 
1199 3 
saee ;TEST 4, SUBTEST 1 
1 H 
1202 ; THIS SUBTEST WRITES THE ADDRESS (8 BITS) INTO THE 
1203 ; RAM MEMORY SINGLE WORD (8 BITS) MODE 
| 1204 8 
1 1205 ag 
1206 cetese BGNSUB WAAAAAAAAAALA or omer SAGAAAASSASA 
032004 104402 C$8SUB 
| 1207 032006 SETPRI #PRIOO sLOWER PRIORITY TO mien INTERRUPT § 
032006 012700 000000 MOV @PRIOO,RO 
032012 104441 TRAP CSSPRI 
1208 032014 005737 003400 TST SKIPT s;SHOULD WE SKIP THIS SUBTEST 
1209 032020 001402 BEQ 10% 38R, IF NOW SKIP REQUIRED 
1210 032022 000137 032304 JMe 50$ sSKIP SUBTEST 
1211 032026 004737 034432 10$: JSR PC, TISREST ;SET COMMAND PACKET 
1212 032032 004737 034504 JSR PC, TISRT2 sSET UP OTHER COMMAND PACKET 
1213 032036 004737 015774 JSR PC SOF INIT 300 INITIALIZE ON CONTROLLER 
1214 032042 103405 BCS 20% 3BR IF INIT WAS OK 
1218 032044 010001 MOV RO,R1 sCONTENTS OF TSSR REGISTER 
1219 032046 ERROF ERRNO,SFIERR,SFIMSG sFATAL ERROR TSSR WAS NOT OK 
032046 104455 TRAP CSERDF 
032050 000621 .WORL 401 
032052 003652 .WORD SFIERR 
032054 012034 .WORD SFIMSG 
1220 032056 208: 
1221 032056 012704 033330 MOV @TISPACKET ,R4 s;SUBROUTINE NEEDS PACKET ADORESS 
1222 032062 004737 010662 JSR PC,WRTCHR TISSUE WRITE CHARACTERISTICS 
1223 032066 103405 ecs 23% ;8R, IF COMMAND ISSUED OK 
1227 032070 010001 MOV RO,R1 ; SAVE CONTENTS OF TSSR 
1228 032072 ERRHRD ERRNO, WRTMSG, SF IMSG ;WRITE CHARACTERISTISC FAILED 
032072 104456 TRAP CSERHRD 
032074 000622 .WORD 4 
032076 005056 .WORD WRTMSG 





| TSVS 
TEST 4: RAM EXERCISER T 
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012703 
112737 
112737 


010337 


1229 032102 
1230 032106 
1231 032114 
1232 032122 
1233 032122 
1234 032126 
1235 032152 


1243 632152 
032152 


0322 
1273 032272 
32272 


1277 032304 


000400 
000001 


010000 


033372 


000377 


034041 
034040 


034040 


23%: 


25$: 


30$: 


40$: 


43%: 


4S$: 


A a M1113 14-JUN-64 15:55 


M10 


#256. ,R3 
#1,7158S1 
#2,7158S0 


RO,R1 
ERRNO, TLSSSR,PKTSSR 


SUB 


R3,T15S3 
R3,T15S2 
#1,T158S0 
R4, TSDBCRS) 
PC, CHKTSSR 


RO,R1 
ERRNO, T1SSSR,PKTSSR 


petal 


Ri,R2 
45% 
ERRNO, T1SAM4 ,EXPBREC 


R3 
R3,0255. 
40% 


SEQ 0129 
sSTARTING ADDRESS FOR RAM WRITE 
sSIZE OF TRANSFER 
sWRITE RAM “COMMAND” 
sADORESS FOR RAM 
sWRITE SUBSYS MEM PACKET 
sDATA FOR WRITE (ADDRESS) 
iI COMMAND 
sWAIT FOR SSR 
s6R, IF NO 7 
;ERROR, SAV 
;TSSR NOT CORRECT AFTER WRITE SUB MEM 
CSERHRD 
-WORD 403 
-WORD T1SSSR 
WORD PKTSSR 
3D0N‘T CONTINUE IF ERROR ON WRITE 
TRAP CSESCAPE 
. WORD L10050-. 
:SCOPE LOOP 
TRAP CSCLP1 
sNEXT 
sEND OF RAM Y 
3LOOP TILL ALL RAM WRITTEN 
sCLEAR OUT R2 HIGH BITS 
3SET BACK TO 7777 
;GET DATA PATTERN BACK IN SHAPE 
sADDRESS FOR RAM RE 
sREAD Cc 
sSEND OUT PACKET ADDRESS TO CONTR. 
sWAIT FOR READY, NON-AMBIGUOUS 
;BR, IF NO PROBLEM 
;SAVE TSSR 
;TSSR NOT CORRECT 
TRAP CSERDOF 
.WORD 404 
.WORD T1iSSSR 
.WORD PKTSSR 
:SCOPE LOOP 
TRAP C$CLP1 
;GET RAM READ DATA 
;SET UP FOR COMPARE 
sCHECK WITH DATA WRITTEN 
;8R IF OK, DATA IN = DATA OUT 
i WRITTEN DATA NOT = TO READ 
TRAP CsSERHRD 
.WORD 405 
.WORD T1SAM4 
. WORD EXPBREC 
;SCOPE LOOP 
CsCLP1 


TRAP 
sDROP DATA COUNTER (PATTERN) 
sAT BOTTOM YET 
sBR, IF MORE TO CHECK 
sSCOPE LOOP 
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194406 


104403 


104402 


MACRO M1113 14-JUN-84 15:55 


034432 
034504 
015774 


033330 
010662 


ENDSUB 


BGNSUB 


N10 


sTEST 4, SUBTEST 2 


25%: 


30$: 


33%: 


SEQ 0130 


TRAP CSCLP1 


ENANANNANANANN END SUBTEST \ANANAAANAAAA 


L100S50: 


TRAP CSESUB 


WAAAAAAAAAAL — SUBTEST S//S/S/S/SS/A4//7/ 
4.2: 


THIS SUBTEST WRITES RAM WITH ALL ZEROS 
THEN WALKS AN ALL ONES WORD DOWN THROUGH MEMORY 


sRESTORE PACKET FOR WRITE CHARA 
sRESTORE PACKET FOR WRT SUB SYS MEM 
:00 ght ON CONTROLLER 


MOV 
ERRHRD 


CKLOOP 


PC, TISREST 
PC, TISRT2 
PC, SOF INIT 
20% 


RO,R1 
ERRNO, SFIERR, SFIMSG 


@TISPACKET ,R4 
PC,WRTCHR 

25% 

RO a R1 

ERRNO, WRTMSG , SFIMSG 


#1,T158°1 


oR1 
ERRNO, T1SSSR,PKTSSR 


;BR IF INIT 


TRAP C$6SU8 


WAS OK 
; CONTENTS OF TSSR REGISTER 
WAS NOT OK 


sFATAL ERROR TSSR 


TRAP CsERDF 


-WORD 406 
-WORD SFIERR 
-WORD SFIMSG 


sSUBROUTINE NEEDS PACKET ANDRESS 
s ISSUE WRITE CHARACTERISTICS 


s6R, IF COMMAND ISSUE 


. SAVE CONTENTS OF 


D OK 


TSSR 
WRITE CHARACTERISTISC —— 


CSERHRD 

TORO 407 
“WORD WRTMSG 
-WORD SFIMSG 

sSET SIZE OF TRANSFER 1 BYTE 

sSET NEW PACKET ADORESS 

sSTARTING ADDRESS IN RAM 

sWRITE RAM COMMAND 

sSET DATA TO 000 

sADDRESS TO PACKET DATA AREA 

sSEND OUT PACKET 

s;WAIT FOR SSR 

;BR, IF NO PROBLEM 

sSAVE TSSR 

sTSSR NOT CORRECT 
TRAP CSERHRD 
-WORD 408 
-WORD T15SSR 
-WORD PKTSSR 

sSCOPE LOOP 
TRAP CSCLP1 


TSVS - 





1378 032656 


HARDWARE TESTS 
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_ M1113 14-JUN-64 15:55 


INC 
010000 chp 
BNe 
358: OEC 
408: CLR 
000001 034040 mOvB 
034042 MOV 
000000 "Ov 
016336 JSR 
ecs 
Ov 

E eRe 

41%: CKLOOP 
033372 *0'/ 
CoPB 
BEQ 

42%: CKLOOP 
000377 Ov 
034040 mOVB 
000377 034044 MOvB 
Ov 
016336 JSR 
ecs 
Ov 

EaRMeo 

43%: CKLOOP 
000001 034040 *OvB 
000000 Ov 
016336 JSR 
ecs 
MOV 

ERROF 
033372 44%: mov 
CMPB 
BEQ 


ERRHRD ERRNO, TISAM2, EXPBREC 


RO,R1 
ERRNO. TISSSR ,.PKTSSR 


T1SBFR+20,R1 
R1 ,.R2 


1, 


42% 
ERRNO , T1SAMS , EXPBREC 


ERRNO, TISSSR ,PKTSSR 


#1,7158S0 
R4, TSOBCRS) 
PC .CHKTSSR 
44s 


RO,R1 
ERRNO, TISSSR ,PKTSSR 


T1ISBFR+20,R1 
R1 ,R2 
aes 


SEG 0131 


2 e 

sWAIT FOR SSR TO SET 

s8R, i 

sSAVE 7 

sTSSR NOT CORRECT 
TRAP CSERHRD 
-WORD 409 
.WORD TISSSR 
. WORD PKTSSR 

sSCOPE LOOP 
TRAPS CSCLPi 

sPICK UWP READ DATA 

s80TH SHOULD GE SIMARY 

18R, IF DATA IS GOOD 

sCHARACTERISTICS DATA NOT CORRECT 
Trap c 
-WORD 410 
.WORD TISANS 
-WORD EXPBREC 

sSCOPE LOOPER 
TRAP CscL_Pi 

sSET MAL ONES WORD 

sWRITE RAM 

sALL ONES PATTERN 

sPASS PACKET ADDRESS TO CONTR. 

sWAIT FOR SSR 

s0R, IF OK (NO ERROR) 

sSAVE TSSR 

sTSSR NOT CORRECT 
TRAP C8ERHROD 
WORD 411 
.WORD T1SSSR 
.WORD PKTSSR 

sSCOPE LOOP 
TRAP CsCLPi 

sSET UW FOR RAM READ 

sI RAM READ 

sWAIT FOR SSR TO SET 

s6R, a4 OK (NO ERROR) 

sSAVE TSSR 

sTSSR NOT CORRECT 
TRAP CSERDF 
-WORD 412 
—_ TiSSSR 

PKTSSR 


sPICK UP REC'D DATA 

sCHECK WITH DATA WRITTEN 

16R IF OK, DATA IN = DATA OUT 
sWRITTEN DATA NOT = TO READ 


TSVS - MARDWARE TESTS MACRO M1113 14-JUN-64 15:55 SEQ 0132 
TEST 4: RAM EXERCISER TES’ 
032656 104456 TRAP CSERHRD 
032660 000635 -WORD 413 
032662 034122 .WORD T1ISAM2 
032664 015502 .WORD EXPBREC 
1379 032666 45%: CKLOOP sSCOPE LOOP 
104406 TRAP CSCLPi 
1380 032670 0053035 DEC Bt sOROP RAM - - aes POINTER 
1381 032672 020327 000377 CMP R3,0255. vat START YE 
1382 032676 001271 BNE 408 i8R, IF MORE ‘aan 10 CECK 
i | 
13864 032700 ENDSUB SNNANANASSANSS END SUBTEST SANNA 
032700 110051: 
_ 032700 104403 TRAP CsesSuB 
1 
1386 032702 BGNSUB 34///1/4/1//4 BEGIN SUBTEST ////////4107/ 
032702 74.3: 
032702 104402 TRAP Cs6sus 
1387 3° 
1388 3 
1389 sTEST 4, SUBTEST 3 
1390 3 
1391 8 
1392 : THIS SUBTEST WRITES RAM WITH ALL ONES 
ie 3 THEN WALKS AN ALL ZEROS WORD DOWN THROUGH MEMORY 
3 
1395 032704 005737 003400 TST SKIPT sCHECK RUN MODE 
1396 032710 001402 BEQ 108 s6R, IF NO SKIP 
1397 O32712 000137 033306 Je 50s sSKIP SUBTEST 
1396 032716 004737 034432 108: JSA PC, TISREST sRESTORE PACKET FOR WRITE CHARA 
1399 032722 004737 034504 JSR PC, TISRT2 sRESTORE PACKET FOR WRT SUB SYS MEM 
1400 032726 0047357 015774 JSa PC. SOF INIT 300 INITIALIZE ON CONTROLLER 
1401 032732 103405 Bcs 20% s6R IF INIT 
1405 032734 010001 MOV RC,R1 sCONTENTS OF TSSR REGISTER 
1406 032736 ERRDOF ERRNO,SFIERR,SFIMSG tFATAL ERROR TSSR WAS NOT OK 
032 104455 TRAP CSEROF 
032740 -WORD 414 
032742 .WORD SFIERR 
032744 012034 .WORD SFIMSG 
1407 032746 20% 
1406 032746 012704 033330 MOV @TISPACKET ,R4 sSUBROUTINE NEEDS PACKET ADORESS 
1409 032752 004737 010662 JSR PC ,WRTCHR sISSUE WRITE CHARACTERISTICS 
1410 032756 103405 ecs 25% 36R. IF COMMAND ISSUED OK 
1414 032760 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 
1415 032762 ERRHRD ERRNO, WRTMSG, SF IMSG sWRITE CHARACTERISTISC FAILED 
032762 104456 TRAP CSERHRO 
032764 000637 .WORD 415 
032766 005056 .WORD WRTMSG 
032770 012034 .WORD SFIMSG 
1416 032772 25%: 
1417 032772 112737 000001 034041 MOVB #1,7156S1 sSET SIZE TO 1 BYTE 
1418 033000 012704 034050 MOV @TiSPK2, Ra sSET NEW PACKET ADORESS 
1419 033004 012703 000400 MOV 0256. RS sSTARTING ADORESS IN RAM 
1420 033010 112737 000002 034040 MOVB @2,7158S0 sWRITE RAM 
1421 033016 112737 000377 034044 MOVB 0377,715S3 sSET DATA TO 3 
1422 033024 010337 034042 308: MOV R3,715S2 sADORESS TO PACKET DATA AREA 
1423 033030 010465 000000 MOV R4, (RS) 1 SENO PACKET ADORESS 
1424 033034 004737 016336 JSR PC, CHKTSSR IWAIT FOR SSR 
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TSVS - HARCWARE TESTS MACRO M1113 14-JUN-64 15:55 SEQ 0133 
TEST 4: RAM EXERCISER TEST 
1425 033040 103405 ecs 33% :8R, IF NO PROBLEM 
1426 033042 010001 MOV RO,R1 sSAVE TSSR 
1430 033044 ERRHRD ERRNO, TISSSR,PKTSSR sTSSR NOT CORRECT 
033044 104456 TRAP CSERHRO 
033046 .WORD 416 
033050 034046 ,WORD T1ISSSR 
033052 012046 .WORD PKTSSR 
1431 033054 338: CKLOOP sSCOPE LOOP 
033054 104406 TRAP CSCLPi 
1432 
1433 
1434 033056 005203 INC sNEXT 
1435 033060 020327 010000 CMP R3, #10000 sEND OF RAM MEMORY CHECK 
1436 033064 001357 BNE $ :6R, MORE 
1437 033066 005303 35%: DEC sSET BACK TO 7777 
1438 033070 112702 000377 40: MOVB 0377,R2 sSET TO ALL ONES 
1439 033074 112737 000001 034040 MOVB #1,7158S0 sREAD R 
1440 033102 010337 034042 MOV R3,715S2 sADORESS TO BE READ TO PACKET DATA 
1441 033106 010465 MOV R4, (RS) : OUT PACKET 
1442 033112 004737 016336 JSR PC,CHKTSSR sWAIT FOR SSR TO SET 
1443 033116 103405 Bcs 4 s8R, IF ALL IS WELL 
1444 033120 010001 MOV RO,R1 sSAVE TSSR 
1448 033122 ERRHRD ERRNO, T15SSR,PKTSSR sTSSR OT CORRECT 
033122 104456 TRAP  CSERHROD 
| 033124 000641 . WORD 17 
033126 034046 .WORD T1SSSR 
033130 012046 .WORD PKTSSR 
1449 033132 ais: CKLOOP sSCOPE LOOP 
033132 104406 TRAP CsCLP1 
1450 033134 013701 033372 MOV T1SBFR+20,R1 :PICK UP READ DATA 
1451 033140 120102 CMPB sé, R2 sB80TH SHOULD BE 11111111 BINARY 
1452 033142 001404 BEQ 42% s8R, IF DATA IS GOOD 
1456 033144 ERRHRD ERRNO, T1SAM3S,EXPBREC sCHARACTERISTICS DATA NOT CORRECT 
033144 104456 CSERHRO 
033146 000642 "Moro 418 
033150 034223 .WORD  TISAMS 
033152 015502 .WORD €EXPBREC 
1457 033154 012702 000377 42%: MOV #000377 ,R2 3SET ALL 0 ONES WORD 
1458 033160 012737 000002 034040 MOV @2,7158S0 sWRITE RAM COMMAND 
1459 033166 112737 000377 034044 NOVB #000377. T15S3 sALL ONES PATTERN 
1460 033174 010465 000000 MOV TSOBCRS) sPASS PACKET ADORESS TO CONTR. 
1461 033200 004737 016336 JSR Pe. Grns SSR sWAIT FOR SSR 
1462 033204 103405 Bcs :8R, IF OK (NO ERROR) 
1463 033206 010001 MOV RO. R1 sSAVE TSSR 
1467 033210 ERRHRD ERRNO, T1SSSR,PKTSSR sTSSR NOT CORRECT 
033210 104456 TRAP CSERHRO 
| 033212 000643 .WORD 419 
033214 034046 .WORD  T1SSSR 
033216 012046 .WORD PKTSSR 
| 14468 033220 43%: CKLOOP sSCOPE LOOP 
033220 104406 TRAP CsCLP1 
| -- 4469 033222 112737 000001 034040 Move 1. T158S0 sSET UP FOR RAM READ 
| 1470 033230 010465 000000 MOV R4, TSDB(RS) sISSUE RAM RE 
1471 033234 004737 016336 JSR PC. CHKTSSR sWAIT FOR SSR TO SET 
1472 033240 103405 Bcs 44s sR, F OK (NO ERROR) 


1473 033242 010001 MOV RO,R1 sSAVE T 
1477 033244 


SSR 
ERRNO, TISSSR,PKTSSR sTSSR NOT CORRECT 





TSVS - HAROWARE TESTS 
TEST 4: RAM EXERCISER T 
033244 104456 
033246 000644 
033250 034046 
033252 012046 
1478 033254 015701 
1479 033260 120102 
1480 033262 001404 
1484 033264 
033264 104456 
033266 
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033372 


000377 


916456 
032004 


45$: CKLOOP 


JP 
63%: EXIT 


Ell 


ee 


45% 
ERRNO, TISAM2 ,EXPBREC 


R3 
R3,0255. 
40% 


PC, TSTLOOP 
63% 


T1SLO00P 
TST 


3° 
sLOCAL STORAGE FOR THIS TEST 


.2¢, 610>€177770 


TISPACKET: 
.WORD 100204 
“WORD TISODATA 
-WORD O 
.WORD 8. 
TISOATA: 
-WORD TiS6FR 
-WORD O 
-WORDB 256 
-WORD 0,0 
TISBFR: .BLKW 150. 
3 
sWRITE SUBSYSTEM MEMORY COMMAND PACKET 
F 
-*¢,¢102E€177770 
T1SPK2: 
«WORD 100206 
-WORD T1S8F2 
-WORD O 
-WORD 6. 
.EVEN 
T156F 2: 


a a 





SEQ 0134 
TRAP CSERHRD 
. aa TiSSSR 
PKTSSR 


sPICK UP REC'D DATA 
sCHECK WITH DATA WRITTEN 
s8R IF OK, DATA IN = DATA OUT 
;WRITTEN DATA NOT = TO READ 
TRAP CSERHRD 


-WORD 421 
«WORD = TISAM2 
-WORD EXPBREC 


sSCOPE LOOP 


TRAP 
sOROP RAM ADDRESS POINTER 
yAT START YET 
s8R, IF MORE RAM TO CHECK 


s\NNNANANANANN END SUBTEST \ANNANAANAAAA 
110052: 
TRAP CsESuB 


:00 WE — TO ITERATE TEST ? 
sBRANCH I A 
sEXECUTE AGAIN 
sALL DONE THIS TEST 
TRAP CSsExIT 
-WORD 110047-. 


sCOMMAND PACKET FOR TEST 
sWRITE CHARACTERISTICS COMMAND, WITH IE, ACK 
sADORESS OF CHARACTERISTICS BLOCK 


sSTARTING VALUE OF BLOCK SIZE 
sCHARACTERISTICS DATA BLOCK 
sADORESS OF MESSAGE BUFFER 
sLENGTH OF MESSAGE BUFFER 


sMESSAGE BUFFER 


sWRITE SUB SYS MEM COMMAND, IE AND ACK 
sADORESS OF SELECT BLOCK DATA 


sSIZE OF DATA PACKET 


| 
—_— 


TSVS - HAROWARE TESTS MACRO M1113 14-JUN-84 15:55 SEQ 0135 
TEST 4: RAM EXERCISER TEST 
1529 034040 000 T158SO: .8YTE 0 sBSELO AREA 
1530 034041 000 T158S1: .BYTE 0 sBSEL1 AREA 
1531 034042 000000 T15S2: .WORD 0 SEL 2 AREA 
1532 034044 000000 T15S3: .WORD 0 sDATA AREA 
1533 
1534 
1535 | 
1536 
1537 3¢ | 
1538 sLOCAL TEXT MESSAGES FOR TEST 
is : | 
1541 034046 127 122 111 TISSSR: .ASCIZ ‘WRITE SUBSYSTEM MEMORY Commend Not Accepted’ 
1542 034122 127 122 111 TiISAM2: .ASCIZ ‘WRITE SUBSYSTEM MEMORY COMMAND Feiled On All Ones Word Read Back’ 
1543 034223 127 122 111 TISAMS: .ASCIZ ‘WRITE SUBSYSTEM MEMORY COMMAND Feiled On All Zeros Word Read Back’ 
1544 034325 127 122 111 TiSAM4: .ASCIZ ‘WRITE SUBSYSTEM MEMORY COMMAND Feiled On Address Test’ 
1545 034413 122 101 115 TSTiSIO: .ASCIZ ‘RAM Exerciser’ 
1546 .EVEN 
ise : 
a 
1549 s;ROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
1550 sWRITE SUBSYSTEM MEMORY COMMAND 
1551 3 
1552 _ 
1553 
1554 034432 TISREST: 
1555 034432 SAVREG sSAVE THE REGISTERS 
1556 034436 012701 033330 MOV @T1ISPACKET ,R1 sSTART OF THE PACKET 
1557 034442 012721 1 MOV #100204 ,(R1)-> ;WRITE SUBSYSTEM MEM. WITH ACK, IE 
1 34446 012721 033340 MOV @TISDATA,(R1)-> sADORESS OF CHARAISTICS DATA BLOCK 
| 1559 034452 CLR 1)+ sEXTENDED ADDRESS 
1560 034454 012721 MOV .CR1)> sSIZE OF DATA BLOCK IN BYTES 
1561 034460 012721 033352 MOV @T1SBFR,(R1)+ sADORESS OF MESSAGE BUFFER 
1562 034464 CLR (R1)> 
1563 034466 012721 000400 MOV 0256. .(R1)-> sLENGTH OF MESSAGE BUFFER 
| 1564 034472 005021 CLR (R1)> 
1565 934474 005011 CLR (R1) 
| 1 034476 005037 033352 CLR T1S6FR ;CLEAR 1ST LOC IN MESSAGE BUFFER 
1567 034502 000207 RTS PC ;RETURN 
1568 
1569 
1570 034504 TISRT2: 
1571 034504 SAVREG sSAVE THE REGISTERS 
| 1572 034510 012701 034030 MOV @T15PK2,R1 sSTART OF THE PACKET 
| 1573 034514 012721 100206 MOV #100206 ,(R1)+ sWRITE suasvsTen MEM. WITH ACK, IE 
1574 034 012721 034040 MOV #T158F2,(R1)+ sADORESS OF DATA BLOCK 
1575 034524 CLR (R1)« VEXTENDED ADORESS 
1576 034526 012721 000006 MOV #6. ,(R1)+ s;SIZE OF DATA BLOCK IN BYTES 
1577 034532 005021 CLR (R1)+ 
1578 034534 005021 CLR (R1)+ 
1579 034536 005011 CLR (R1) 
1580 034540 000207 RTS P sRETURN 
1581 034542 ENOTST 
034542 L10047: 
034542 104401 TRAP CSETST 
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TEST 5S: EXTENDED FEATURES SWITCH AND TIMERS A,B 


012700 036622 
004737 016510 
012737 000012 002216 


é 
; 
‘ 
é 
‘ 
; 
3 
4 
6 
3 
3 
é 
é 
a 


-SBTTL TEST 5S: EXTENDED FEATURES SWITCH AND TIMERS A,B 


i* 
TEST DESCRIPTION: 


This test verifies the Invert Extended Features function 
can logicelly invert the Extended features switch and 
thet the internal timers A end B operate correctly. 


TEST STEPS: 
REPEAT FOR LOOPCNT 
BEGIN 


Do Subtest 1 - Verify Extended Features Switch 
Do Subtest 2 - Verify Timers A,B 


TS:: 
MOV @TST16I0,RO sASCII MESSAGE TO IDENTIFY TEST 
JSR PC, TSTSETUP 3:00 INITIAL TEST SETUP 
#10. ,LOOPCNT sPERFORM 10 ITERATIONS 


-SBTTL TEST S: SUBTEST 1: VERIFY EXTENDED FEATURES TEST 


gee 
; TEST 5S: SUBTEST 1: 


BEGIN 


SUBTEST DESCRIPTION: 


This subtest verifies thet the Invert Sense of Extended features 

Switch function (Write Subsystem Memory.Write Misc command) 

operates properly. 

First the stete Me the Extended Features ewitch is read in the 

message packet supplied by the write characteristics command. 

Then, the sense of the ewitch is logicelly inverted. 

A Write cherecteristics command is executed and it is verified 

thet the Extended status register (XST4) ie returned when 

in Extended mode, and not returned if not in extended mode. 

The eubtest aleo verifies thet specifying a Messege Buffer 
with any of bits 21-19 ,set wll ceuvee the command to 

be rejected. 


TEST STEPS: 


Write to TSSR ister to soft initialize the controller 
Do WRITE CHARACTERISTICS to check for Extended Features Switch 
a eutented Feetures Herdwere Switch CLEAR 

(* Verify nee Features switch can be Inverted to SET +) 


Do Write Subsystem Write Miscellaneous to SET Extended Features. 


DO ea WRITE RACTERISTICS with en extended cheracteristic word 
Compere the controller rem to the extended cheracteristic word 


SEQ 0136 


ee ee ee — ee ee ee 


Hii 
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TSVS - HARDWARE TESTS SEQ 0137 
test S: SUBTEST 1: VERIFY EXTENDED FEATURES TEST 


1643 t If Dete word in controlles rem NOT* to word sent Then Print Error 

1644 $ as Messege Suffer Date Length NOT* 12. Then Print Error 

1645 ’ 

1646 : (* Verify Extended Features switch can be Inverted to CLEAR +) 

1647 ; Do Write tem Write Miscellaneous to CLEAR Extended Features. 

1648 ; 23 e WRITE ACTERISTICS without an extended cherecteristic word 

1649 : ae Sy es Buffer Dete Length NOT* 10. Then Print Error 

1650 H 

1651 ; (* Verify Function Reject when Buffer 21-19 ere non-zero *) 

1652 ; Write to TSSR ister to soft initialize the controller 

1653 : REPEAT FOR ME ADDRESS bite <21:19> FROM O TO 7 

1654 : DO e WRITE CHARACTERISTICS with oe eddress bit<21:19> non-zero 

1655 3 If TSSR eens? code NOT= Function Reject Then Print Error 

1656 : END -REPEAT 

1657 ; END 

1658 $-- 

1659 034562 BGNSUB 34///14/1///// BEGIN SUBTEST /////////7/ 
034562 75.1: 
034562 104402 TRAP Cs6SUB 

1660 

1661 

1662 034564 S$: 

1663 ; Write a TSSR A ag to soft int etol ise the controller 

1664 034564 004737 015774 JSR WRITE TO TSSR TO = INITIALIZE 

1665 034570 103405 ecs 108 7BR IF SOFT INIT OKAY 

1666 034572 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 

1667 034574 ERRDF ERRNO,SFIERR,SFIMSG sDEVICE FATAL DURING INIT 
034574 104455 TRAP CSERDF 
034576 000764 . WORD 
034600 003652 -WORD SFIERR 
034602 012034 -WORD SFIMSG 

1668 $ Do WRITE rr a to check for Extended Features Switch 

1669 034604 004737 37770 10$: JSR PC, TIGREST sRESTORE PACKET DEFAULTS 

1670 034610 005037 002222 CLR FATFLG ;CLEAR FATAL ERROR FLAG. 

1671 034614 012704 040150 MOV @TIGPACKET ,R4 sGET THE ADORESS OF COMMAND PACKET 

1672 034620 004737 010662 JSR PC ,WRICHR 300 WRITE chy age bt COMMAND 

1673 034624 F 12$ s@BDFORCE ERROR IF FORCER=1 

1674 034640 103407 BCcS 15% ;6R IF CARRY SET (GOOD RETURN) 

1675 034642 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 

1676 034644 NEXT .ERRNG 

1677 034644 12%: ERRDF ERRNO,T16SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
034644 104455 TRAP CSEROF 
034646 000765 -WORD 501 
034650 036672 -WORD T16SSR 
034652 012046 .WORD PKTSSR 

1678 034654 005237 002222 INC FATFLG sSET FATAL ERROR FLAG 

1679 034660 15%: CKLOOP sLOOP ON ERROR, IF FLAG +s. 

— 034660 104406 TRAP CsCLP1 

16861 F If Extended Feetures sa age Switch Clear then: 

1682 $ (* Verify Extended Feetures switch cen be Inverted to SET +) 

1683 $ REPEAT FOR TEST PATTERNS IN TSTBLK TABLE 

1684 034662 912701 040172 MOV @T16BFR,R1 sMESSAGE BUFFER ADDRESS 

1685 034666 032761 000200 000012 BIT x2. EXTF, xST2(R1) JEXTENDED FEATURES SWITCH CLEAR? 

1686 034674 001402 BEQ 20% s6R IF YES 

1687 034676 000137 035246 JP 200% H 

1688 034702 012703 002764 20%: MOV @TSTBLK+10. ,R3 sSTART OF TEST DATA 
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VS - HAROWARE TESTS SEQ 0138 
test 5S: SUBTEST 1: VERIFY EXTENDED FEATURES TEST 


1689 ; Do Write Subsystem Write Miscellaneous to SET Extended Features. 

1690 

1691 034706 004737 040150 JSR PC, TI6SEXT sSETUP PACKET FOR WRITE MISC INVERT 

1692 034712 012704 040220 MOV @T16PK2 ,R4 sGET WRITE SUBSYSTEM COMMAND PACKET 

1693 034716 010465 000000 MOV R4, TSOBCRS) sSET THE PACKET ADORESS TO EXECUTE 

1694 034722 004737 0163536 JSR »CHKTSSR sWAIT FOR SSR TO SET 

1695 034726 FORCE 32% s@B0F ORCE ERROR m4 FORCER=1 

1696 034742 103407 Bcs 4Qs s6R IF CARRY SET (GOOD RETURN) 

1697 034744 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 

1698 034746 NEXT .ERRNO 

1699 034746 32%: ERROF ERRNO,T162SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
034746 104455 TRAP CSEROF 
034750 000766 .WORD 502 
O347S2 036727 -WORD 1162SSR 
034754 012046 . WORD PKTSSR 

1700 034756 005237 002222 INC FATFLG sSET FATAL ERROR FLAG 

1701 034762 40$: CKLOOP sLOOP ON ERROR, IF FLAG ee 

— 0247 104406 TRAP CSCLPi 

1703 3 00 e WRITE Ag+ Heels with en extended cherecteristic word 

1704 034764 012737 125252 002312 MOV #125252 ,DAT sSETUP TEST OATA'F FOR EXTENDED WORD 

1705 034772 012704 040150 MOV sTLePACKET RA iGET THE ADORESS OF COMMAND PACKET 

1706 034776 012764 000020 000006 MOV #16. , PKBCNT(R4) S STORE MESSAGE PACKET SIZE 

1707 035004 013737 002312 040170 MOV DATA, TI6DATA+10 sSTORE TEST DATA IN EXTENDED WORD 

1708 035012 004737 010662 JSR PC ,WRTCHR 300 WRITE CHARACTERISTICS COMMAND 

1709 035016 F 423 s@G0FORCE ERROR IF FORCER=1 

1710 035032 103407 6cs 50% 38R IF CARRY SET (GOOD RETURN) 

1711 035034 010001 RO,R1 sSAVE CONTENTS OF TSSR 

1712 035036 NEXT .E! 

1713 035036 42%: ERRNO, T16SSR,PKTSSR s;DEVICE FATAL SSR FAILED TO SET 
035036 104455 TRAP CSEROF 
035040 000767 -WORD 503 
035042 036672 .WORD T16SSR 
035044 012046 WORD #PKTSSR 

1714 035046 005237 002222 INC FATFLG sSET FATAL ERROR FLAG 

1715 035052 50$: CKLOOP ;LOOP ON ERROR, IF FLAG SET 
035052 104406 TRAP CSCLP1 

171 : If the TSBA Address Register NOT= oo Then Print Error 

1717 035054 016501 000000 MOV TSBACRS),R1 sGET TSBA REGISTER CONTENTS 

1716 035060 012702 040172 MOV @T16BFR ,R2 SSTART OF THE DATA BUFFER 

1719 035064 062702 000020 623: ADO #16. ,R2 sEXPECTED CONTENTS OF TSBA 

1720 035070 FORCERROR 72¢,NOTSSR s@@0FORCE ERROR IF FORCER=-1 

1721 035100 020102 CMP R1,R2 sCOMPARE EXPECTED TO RECEIVED 

1722 035102 001404 BE 80% sERROR IF NOT EQUAL 

1723 035104 NEXT .ERRNO 

1724 035104 72%: ERRHRD ERRNO, T16TSBA,EXPREC sPRINIT THE ERROR € EXPD/RECV 
035104 104456 TRAP CSERHRO 
035106 000770 .WORD 504 
035110 037040 . WORD T16TSBA 
03511 015474 .WORD EXPREC 

1725 035114 80%: CKLOOP ;L00P ON ERROR, IF FLAG 7. 

03 104406 CSCLP1 

1726 $ Compere the controller ram to the extended imanidieaen word 

1727 F If Dete were \y agentreliler rem NOT= to word sent Then Print Error 

1728 035116 012704 040160 MOV eT16DAT sGET CHARACTERISTIC DATA ADORESS 

1729 035122 004737 011224 JSR pb nado s;DOES RAM DATA EQUAL DATA SENT? 

1730 035126 FORCERROR 92% ;QBOFORCE ERROR IF FORCER=1 


1731 035142 
1732 035144 


103404 


015510 
104406 
012702 


JL 
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test S: SUBTEST 1: VERIFY EXTENDED FEATURES TEST 


040172 
000002 
000014 


015774 


035426 


040130 
040220 


000000 
016336 


002222 


92$: 


112$: 


120%: 


125%: 


232s: 


240%: 


BCS 100$ 
NEXT . ERRNO 
ERRHRD ERRNO, PKTRAM,RAMERR 


MOV 2(R2),R1 
MOV #12. ,R2 
FORCERROR o- 112$,NOTSSR 


CKLOOP 

JSR PC, SOF INIT 
BCS 125% 

MOV 


RO,R1 
ERROF ERRNO, SFIERR,SFIMSG 


CKLOOP 
JP 300% 


If Mes Buffer Dete Length NOT= 12. Then Print Error 
OTL6BFR, Re 


SEQ 0139 
;BR IF YES 
sREPORT THE RAM ERROR(S) 
TRAP C sERHROD 
-WORD 505 
-WORD  PKTRAM 
-WORD RAMERR 
sLOOP ON ERROR, IF FLAG SET 
TRAP CSCLP1 
sGET MESSAGE BUFFER ADORESS 
sGET RECV DATA FIELD LENGTH 
{GET EXPO DATA FIELD LENGTH 
s@@0FORCE ERROR IF FORCER=1 
sCOMPSRE EXPECTED TO RECEIVED 
sERROR IF NOT EQUAL 
sPRINT THE ERROR € EXPD/RECV 
TRAP CSERHRD 
-WORD 506 
-WORO TI16LEN 
° EXPREC 
;LOOP ON ERROR, IF FLAG SET 
TRAP CsCLP1 


sWRITE TO TSSR TO SOFT INITIALIZE 
: F T INIT OKAY 
sSAVE CONTENTS OF TSSR 
sDEVICE FATAL DURING INIT 
TRAP CSEROF 


-WORD 506 
-WORD SFIERR 
-WORD SFIMSG 


;LOOP IF SELECTED 
TRAP CsCLPl 


Verify Extended Features switch can be Inverted to CLEAR «) 
Do Write Subs ao Write Miscellaneous to CLEAR Extended F 


JSR PC, 


F RROR 232% 
BCS 240% 

RO,R1 
NEXT .E 


ERRNO 
ERROF ERRNO,T162SSR,PKTSSR 


INC FATFLG 
CKLOOP 


sSETUP PACKET FOR WRITE MISe. INVERT 
;GET WRITE SUBSYSTEM COMMAND PACKET 
;SET THE PACKET ADDRESS TO EXECUTE 
sWAIT FOR SSR TO SET 

3 ORCE ERROR IF FORCER=1 
;BR IF CARRY SET (GOOD RETURN) 
: SAVE CONTENTS OF TSSR 
;DEVICE FATAL SSR FAILED TO SET 

TRAP 


CSEROF 
-WORD 507 
-WORD 1162SSR 
-WORD PKTSSR 
s;SET FATAL ERROR FLAG 
sLOOP ON ERROR, IF FLAG SET 
TRAP CsCLP1 





035522 
1810 035524 


STS 


012704 
012764 
004737 


104406 


012702 


KI 
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002222 


040174 
000012 


002222 


002312 


242s: 


270%: 


325%: 


342%: 


TSVS - HARDWARE TE 
TEST 5S: SUBTEST 1: VERIFY EXTENDED FEATURES TEST 


SEQ 0140 


DO a WRITE CHARACTERISTICS without an extended cheracteristic word 
4 GE OMMAND PACKET 


MOV @T16PACKET ,R 
MOV #14. ,PKBCNT(R4) 
JSR PC ,,WRTCHR 
FORCERROR 


42% 
BCS 250$ 
MOV RO,R1 
NEXT 


. ERRNO 
ERRDF ERRNO, T16SSR,PKTSSR 


INC FATFLG 
LOOP 


If meeenee oe ie Data Length NOT= 10. 


MOV T1 —— 


CMP R1,Re 
BEQ 270% 
NEXT .E 


RRNO 
ERRHRD ERRNO, TI6LEN,EXPREC 


CKLOOP 


(* Verify Function Reject when 


sGET THE ADDRESS OF C 

sSTORE MESSAGE PACKET SIZE 

s00 WRITE CHARACTERISTICS COMMAND 
s@GOFORCE ERROR IF FORCER=1 

s6R IF CARRY Y SET (GOOD RETURN) 

sSAVE CONTENTS OF TSSR 


;DEVICE FATAL SSR FAILED TO SET 
TRAP 


CSEROF 
-WORD 508 
ca T16SSR 
PKTSSR 
;SET FATAL ERROR FLAG 
;LOOP ON ERROR, IF FLAG a 
CSCLP1 
Then Print a ges 
3GET RECV DATA FIELD LENGTH 
sGET EXPD DATA FIELD LENGTH 
sCOMPARE EXPECTED TO RECEIVED 
sERROR IF NOT EQUAL 
sPRINT THE ERROR € EXPD/RECV 
TRAP CSERHRD 
-WORD 509 
-WORD TI6LEN 
-WORD EXPREC 
sLOOP ON ERROR, IF FLAG SET 
TRAP CSCLP1 


Buffer 21-19 are non-zero *) 


Write to TSSR register to soft initialize the controller 
REPEAT FOR MESSAGE BUFFER ADDRESS bits <21:19> FROM O TO 7 


MOV 


MOV @T16PACKET ,R4 
MOV #14. , PKBCNT(R4) 
MOV _- »RO 


RO, TI6DATA+2 
MOV R4, TSOBCRS) 
Fao PC ,WAITF 


342% 
BCS 350% 
MOV RO,R1 
NEXT .E' 
ERROF ERRNO,T16SSR,PKTSSR 


INC FATFLG 


1,DA 
DO ea WRITE CHARACTERISTICS with oe message 


sSTART AT BITS<21:19>+001 
address bit<21:19> 


sGET THE ADDRESS OF COMMAND PACKET 
sSTORE MESSAGE PACKET SIZE 

sGET TEST DATA 

sSHIFT INTO BITS 21:19 


sSTORE BUFFER ADDRESS BITS 21:19 
sSET THE PACKET ADDRESS TO EXECUTE 


s;WAIT - SSR 

ORCE ERROR IF FORCER=1 
sBR IF CARRY SET (GOOD RETURN) 
;SAVE CONTENTS OF TSSR 


;DEVICE FATAL SSR FAILED TO SET 
TRAP 


non-zero 


. WORD 
-WORD T16SSR 
sSET FATAL ERROR FLAG 





TSVS - HARDWARE TESTS MACRO M1113 14-JUN-864 15:55 SEQ 0141 
TEST 5S: SUBTEST 1: VERIFY EXTENDED FEATURES TEST 
1811 035530 350%: | CKLOOP sLOOP ON ERROR, IF FLAG SET 
035530 104406 TRAP =—s-« CSCLP1 | 
1612 
1813 ; If TSSR termination code NOT= Function ou aees Then Print Error 
1814 035532 016501 000002 MOV TSSRCRS),R1 3GET RECV TSSR 
1815 035536 010102 MOV R1,R2 SCOPY RECV TSSR 
1816 035540 042702 000016 BIC @TERCLS,R2 sCLEAR TC<2:0> EXPD 
1817 035544 052702 BIS @TSREJ,R2 sSET EXPD TC<2:0>= FUNCTION REJECT 
| 1818 035550 F 352% ,NOTSSR s@GO0FORCE ERROR IF FORCER=1 
1819 035560 020102 CMP R1,R2 sEXPD EQUAL RECV? 
1820 035562 001404 BEQ 360% ;6R IF YES 
1821 035564 NEXT . ERRNO 
} 1822 035564 352$: ERRHRD ERRNO, TI6GREJ,PKTSSR ;sDEVICE FATAL SSR FAILED TO SET 
| 035564 104456 TRAP = CSERHRD 
| 035566 000777 - WORD 511 
| 035570 037254 . WORD T1I6REJ 
| 035572 012046 . WORD PKTSSR 
1823 035574 360$ CKLOOP sLOOP ON ERROR, IF FLAG SET 
035574 104406 TRAP = CSCLP1 
1824 035576 FORCEXIT 370% 
| 1825 035606 005237 002312 INC TA ;GET NEXT roe PATTERN 
18626 035612 023727 002312 000007 CMP DATA, 07 sDONE ALL DATA? 
| 1827 035620 101002 BHI 70$ ;8R IF YES 
1828 035622 000137 035434 JP 325% 3:00 ANOTHER TEST PATTERN 
1829 3 END-REPEAT 
1830 035626 370%: 
1831 035626 ENDSUB s/////11////74 END SUBTEST ////////// 
| 035626 L10054: 
sone 035626 104403 TRAP CsESUB 
1833 035630 005737 002222 TST FATFLG 3; ANY oa — ? 
1834 035634 001402 BEQ 460% sBRANCH I 
1835 035636 004737 017202 JSR PC ,CKDROP ;TRY TO DROP THE UNIT 
1836 035642 460%: 
1837 
1838 
1839 
1840 
1841 
| .SBTTL TEST 5S: SUBTEST 2: VERIFY TIMERS A,B 
1844 Pee 
1845 ; TEST 5S: SUBTEST 2: 
1846 ; 
rot ; SUBTEST DESCRIPTION: 
: 
1849 : This eubtest verifies that timers A,B can be reset 
1850 ; and thet Timer A is twice the frequency of Timer 8. 
1851 ; Timer A hes e period of 25 microseconds and Timer B 
1852 ; hes a period of 50 microseconds. The timers are 
ae ; checked at 1, 28, 53, and 78 micoseconds. 
3 
| 1855 ; TEST STEPS: 
| 1856 3 
1857 3 
1858 ; Write to TSSR ister to soft initialize the controller 
1859 ; Do WRITE CHARACTERISTICS to setup e Message Buffer 





NN EEE EEE eee 


ee ey 


1900 035754 
1901 035760 
902 035764 
1903 035770 
1904 035774 
1905 036000 


TSVS - HARDWARE TESTS MACRO M1113  14-JUN-84 15:55 
TEST S: SUBTEST 2: VERIFY TIMERS A,B 


015774 


037770 


002222 


; 
10%: 


12$: 


M11 


SEQ 0142 


(* Verify Timers A,B after RESET TIMER with 0 microsecond delay +) 
Do ea Write Control RESET TIMER with 1 microsecond delay 

Do a Write pevates READ STATUS 

If Timer A NOT= O Then Print Error 

If Timer B NOT= O Then Print Error 

(* Verify Timers A,B after RESET TIMER with 28 microsecond delay *) 
Do a Write Control RESET TIMER with 26 microsecond delay 

If Timer A NOT= 1 Then Print Error 

I? Timer B NOT= i Then Poon Error 

Do a Write = Sa RESET T with 53 microsecond delay 

If Timer A NOT= O Then Print Error 

If Timer B NOT= 1 Then Print Error 

Do ea Write Control RESET TIMER with 78 microsecond delay 

If Timer A NOT= 1 Then Print Error 

If Timer 8 NOT= O Then Print Error 


BGNSUB TAAL ALLL a ALAA 


TRAP C$8SUB 
Write to TSSR register to soft initialize the controller 


JSR PC, SOF INIT sWRITE TO Lie + TO or wy INITIALIZE 
10% 3BR T INIT OKAY 
MOV RO,R1 sSAVE CONTENTS OF TSSR 


ERRDOF ERRNO, SFIERR,SFIMSG {DEVICE FATAL DURING INIT 
TRAP CSEROF 


-WORD 511 
-WORD SFIERR 
-WORD SFIMSG 


Do WRITE CHARACTERISTICS to setup a Mes Buff 
JSR PC, TI6REST sRESTORE PACKET DEFAULTS 
CLR FATFLG ;CLEAR FATAL ERROR FLAG 


MOV @TI6PACKET ,R4 sGET THE SS OF a PACKET 

MOV #6. , PKBCNT(R4 ) sMESSAGE PACKET SIZE NO EXTEND 

JSR »WRTCHR 300 WRITE CHARACTERISTICS COMMAND 

F 12$ :880F ERROR IF FORCER=1 

BCS 15% s6R IF CARRY SET (GOOD RETURN) 

MOV RO,R1 sSAVE CONTENTS OF TSSR 

NEXT . ERRNO 

ERROF ERRNO,T16SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
TRAP CsEROF 
- WORD 12 
-WORD T16SSR 
-WORD PKTSSR 

INC FATFLG sSET FATAL ERROR FLAG 

CKLOOP ;LOOP ON ERROR, IF FLAG SET 
TRAP CsCLP1 


(* Verify Timers A,B after RESET TIMER with 1 microsecond delay *) 
Do eae Write Control RESET TIMER with 1 microsecond delay 
MOV ons. ° sRESET TIMER COMMAND 
31 MICROSECOND DELAY 
sSETUP T16PK2 COMMAND PACKET 
sGET WRITE SUBSYSTEM COMMAND PACKE 
MOV R4, TSDBCRS) 3SET THE PACKET ADORESS TO EXECUTE 
PC SSR sWAIT FOR SSR TO SET 
sQ@BOFORCE ERROR IF FORCER=1 





TESTS MACRO M1113 Pe -JUN-64 15:55 


VS - HARDWARE 
test S: SUBTEST 2: VERIFY TIMERS A 


002222 


000010 
000004 
040212 
000002 
177763 


002222 


000010 
000004 
040212 
000002 


32s: 


72s: 


112%: 


INC 
CKLOOP 


If Timer A NOT= 0 
If Timer B NOT= 0 


Nit 


40$ 
RO,R1 


RRNO 
ERRNO, T162SSR,°KTSSR 


FATFLG 


CLR R2 

BIC @S2.ATIM,R2 

BIC @S2.BTIM,R2 

MOV @T16BFSTA,RO 

MOV 2(RO),R1 

BIC @tC<S2.ATIM!S2.BTIM>,R1 
FORCERROR 72% ,NOTSSR 
CMP R2,R1 

BEQ 80% 

NEXT . ERRNO 

ERRHRD ERRNO,T167T01, TIMEXP 
CKLOOP 

MOV -RSD, 

MOV 716028 ,R1 

JSR PC,T1 sc 

MOV @T16PK2 ,R4 

MOV R4, TSOBCRS) 

JSR PC ,CHKTSSR 

F 112$ 

BCS 120% 

MOV RO,R1 

NEXT oO 

E ERRNO, T162SSR,PKTSSR 
INC FATFLG 

CKLOOP 


SEQ 0143 
BR IF CARRY SET (GOOD RETURN) 
sSAVE CONTENTS OF TSSR 
sDEVICE FATAL SSR FAILED TO SET 
TRAP CSEROF 
. WORD 13 
-WORD 1162SSR 
-WORD PKTSSR 
sSET FATAL ERROR FLAG 
sLOOP ON ERROR, IF FLAG SET 
TRAP CsCLPl 


Then Print Error 
Then Print Error 


sINIT EXPO 

sTIMER A EXPD=0 

s TIMER B EXPD=0 

sGET RECV READ STATUS 
sGET RECV BYTE 2 

a~y TIMER A:B RECV ONLY 
; 

sEXPD EQUAL RECV? 
3BR IF YES 


;REPORT ERROR 
TRAP CSERHRD 
WORD 


«WORD T16TO1 

-WORD TIMEXP 
;LOOP ON ERROR, IF FLAG SET 

TRAP CSCLP1 


Do a Write Control RESET TIMER with 28 microsecond delay 
ons RO RESE OMMAND 


T16PK2 COMMAND PACKET 
:GET WRITE SUBSYSTEM COMMAND PACKE 
sSET PACKET ADDRESS TO EXECUTE 
;WAIT FOR SSR TO SET 

heh eg ERROR IF FORCER=1 
3BR IF CARRY SET (GOOD RETURN) 
SSAVE CONTENTS OF TSSR 


sDEVICE FATAL SSR FAILED TO SET 
TRAP 


CSEROF 
-WORD 515 
-WORD 1162SSR 
-WORD PKTSSR 
;SET FATAL ERROR FLAG 
sLOOP ON ERROR, IF FLAG SET 
TRAP CSCLP1 


If Timer A NOT= 1 Then Print Error 


If Timer B NOT= 1 
CLR R 


2 
@S2.ATIM,R2 
#S2.BTIM,R2 
@T16BFSTA,RO 
2(RO),R1 


Then Print Error 


sINIT EXPO 

sTIMER A EXPD=1 

s TIMER B EXPD=1 

:;GET RECV READ STATUS 
sGET RECV BYTE 2 


Ble 


eee ee Ce ee 


TSVS - HARDWARE TESTS MACRO MILLIS | 14-JUN-64 15:55 SEO 0144 
TEST S: SUBTEST 2: VERIFY TIMERS A.B 
1946 036222 042701 177763 BIC @*C<S2.ATIM!S2.BTIM>,91 ,;SAVE TIMER A:B RECV OMY 
1949 036226 F ORCERROR 1726, NOTSSR r 
1950 036236 1 Cree R2,R1 sEXPD EQUAL RECV? 
1951 036240 001404 BEQ 1606 OR IF YES 
1952 036242 NEXT . ERRNO 
1 O%282 172%:  ERRMRD ERRNO,.116126, TIMEXP sREPORT ERROR 
36242 104456 TRAP CoE RHRD 
036244 001004 . WORD 516 
036246 037470 -WORD 116728 
036250 015552 . WORD 
1954 036252 160%: CKLOOP sLOOP ON ERROR, IF FLAG SET 
ous 036252 104406 TRAP Cec. P1 
1 
1956 $ Do e Write Control RESET TIMER with 53 micresecend delay 
1957 036254 012700 000001 Ov oS . RSD .RO sRESET TIMER COPPWO 
1958 036260 013701 036616 Ov 716053 ,R1 MICROSECOMD DELAY 
036264 004737 060102 JSR PC, TIGMMISC sSETW T COPPA T 
036270 012704 0640220 MOV OTIGPK2 .R4 sGET WRITE SUBSYSTEM 
1961 036274 010665 000000 ™0Vv a4, TSOB(RS) sSET THE PACKET ADORESS 10 EXECUTE 
1962 036300 004737 016336 JSF PC .CHKTSSR sWAIT FOR SSR TO SET 
1963 036304 FORCERROR 2128 sQG0FORCE ERROR IF FORCER-1 
1964 036320 103407 ecs 2208 ;0R IF CARRY SET (GOOD RETURN) 
1965 036322 010001 MOV RO,R1 sSAVE CONTENTS GF TSSR 
036324 NEXT .ERRNO 
1967 0363246 212%:  ERRDOF ERRND,1T162SSR.PKTSSR sOEVICE FATAL SSR FAILED TO SET 
036324 106455 TRAP Cc 
036326 001005 -WORD $17 
036330 036727 -WORD Tf 
036332 012046 .WORD PKTSSR 
1968 036334 005237 002222 INC FATFLG sSET FATAL ERROR FLAG 
1969 036340 2208: sLO0P ON ERROR, IF FLAG SET 
036340 1046406 TRAP CSsCLPi 
1970 3 If Timer A NOT= O Then Print Error 
1971 3 If Timer 6 NOT= 1 Tren Print Error 
1972 036342 005002 c.R sINIT EXPO 
1 036344 042702 000010 BIC @$2.ATIMN,R2 sTIMER A EXPD-0 
1974 036350 052702 6IS #52 .6TIM,R2 sTIMER 6 EXPD-1 
1 036354 012700 060212 MOV @T168F STA,RO sGET RECV READ STATUS 
1976 036360 016001 MOV RO),R1 sGET RECV BYTE 2 
1977 036364 042701 1777635 orc teenage! OTIM> Ri 1SAVE TIMER A:8 RECV ONLY 
036370 ° $ 
1979 036400 1 cr R2,R sEXPD EQUAL RECV? 
1960 036402 0014046 @Fa 2608 s6R IF YES 
1961 0364046 NEXT. 
1 0 Se d0g 272%:  ERRMRD ERRNO, 116153, TIMEXP sREPORT ERROR 
036404 104456 TRAP Cc 
036406 001006 .WORD 518 
036410 037570 .WORD T16TSS 
036412 015552 .WORD TIMEXP 
1963 036414 260%: CKLOOP 3LO0P ON ERROR, IF FLAG oT 
036414 104406 CscLPi 
5 Do e Write Centro] RESET TIMER with 78 microsecond PED soe 
1965 036416 0 000001 MOV Ors .RSO RO sRESET TIMER COPPWO 
036422 013701 036620 MOV 716076 ,R1 376 MICROSECOND DELAY 
196? 036426 7 040102 JSR PC, TIGMMISC sSETW T Pp 
19686 036432 012704 040220 OV @TIGPK2 ,R4 sGET WRITE SUBSYSTEM COMMAND 
1969 036436 010465 000000 MOV Ra , TSOBCRS) sSET THE PACKET ADORESS TO CNECUTE. 
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004737 


002222 


000004 
040212 
000002 
177763 


313 oa, - JUN-64 15:55 


3128: 


3728: 


4603: 


4653: 


JSR PC .CHKTSSR 

F Si2s 

ecs 3208 

MOV RO,R1 

NEXT. 

ERROF ERRNO, T162SSR,PKTSSR 
INC FATFLG 

CKLOOP 


If Timer A NOT? 1 
If Timer B NOT= 0 
CLR Re 


BIS @S2.ATIM,R2 

BIC @S2.6TIM,R2 

MOV @T168F STA,RO 

mOv 2(RO),R1 

BIC @rC<S2.ATIM!S2.BTIM> Ri 
FORCERROR 3728 ,NOTSSR 
cr R2,R1 

BEQ 3806 

NEXT . ERRNO 

ERRHRD ERRNO, 116176, TIMEXP 
CKLOOP 

ENDSUB 

TST FATFLG 

BEQ 4608 

JSR PC, 

JSR PC, TSTLOOP 

BCC 465% 

JP T16L00P 

EXIT TsT 


-WORD 1 
-WORD 40 
-WORD 76 


Tren Print Error 
Then Print Error 


SEQ 0145 
sWATT ag SSR TO SET 
ORCE ERROR IF oe 
s6R IF CARRY SET (GOOD RETURN 
sSAVE CONTENTS OF TSSR 
sDEVICE FATAL SSR FAILED TO SET 
TRAP CSEROF 
-WORD 519 
-WORD 1162557 
. Px TSSR 
sSET FATAL ERROR FLAG 
sLOOP ON ERROR, IF FLAG SET 
TRAP CSCLPi 
sINIT EXPO 
s TIMER A EXPD-1 
sTIMER 6 ExPD-0 
sGET RECV READ STATUS 
sGET RECV BYTE 2 
SAVE TIMER A:B RECV ONLY 
$ 
sEXPO EQUAL RECV? 
s IF YES 
sREPORT ERROR 
TRAP CSERHRD 
-WORD S520 
-WORD 116776 
.WORD TIMEXP 
sLO0P ON ERROR, IF FLAG SET 
TRAP csc. Pi 
s44/41141411707 END SUBTEST S//4/44//477/ 
L10055: 
TRAP CsESsus 
sANY FATAL ERRORS ? 
sBRANCH IF NOT 
tTRY TO OROP THE UNIT 
sSHOULD WE DO ITERATIONS? 
3:6R IF NO 
sLOOP UNTIL ITERATIONS DONE 
s4AAA444404 EXIT TEST S44/444/74/ 
TRAP CSsExIT 
.WORD 110053-. 


31 MICROSECOND DELAY (ACTUALLY .6 MIC) 
326 MICROSECOND DELAY (.8 MICROS PER) 
153 MICROSECOND 





Dle 


TSVS - HARDWARE TESTS MACRO M1113 14-JUN-64 15:55 SEQ 0146 
TEST S: SUBTEST 2: VERIFY TIMERS A,B 

2033 036620 000142 716078; .WwOPD = 142 378 MICROSECOND 

2034 3° 

2035 sLOCAL TEXT MESSAGES FOR TEST 

5037 if 

2038 036622 105 170 164 TST16I0: -ASCIZ ‘Extended Features Switch and Timers A,8° 


2039 036672 127 122 111 T16SSR: .ASCIZ ‘WRITE CHARACTERISTICS Fer Feiled’ 
2040 036727 127 122 111 T162SSR:.ASCIZ ‘WRITE SUBSYSTEM (Write Miec) Fei led’ ! 
2041 0367735 127 122 111 T163SSR:.ASCIZ ‘WRITE SUBSYSTEM (Reed Stetus) Fei led’ 
2042 037040 102 165 163 T1I6TSBA:.ASCIZ ‘Bus Address Seereter (TSBA) Incorrect efter Write Cherecter istics’ 

2043 037142 104 141 164 TI6LEN:.ASCIZ ‘Dete Field bag yh. Messege Buffer Incorrect efter Write Cherecteristics' | 
2044 037254 124 123 123 TIGREJ:.ASCIZ ‘TSSR Functi ject Not ot Renamed When Non-Existent Buffer Address Specifie | 


2045 037371 124 151 155 T16T01:.ASCIZ ‘Timer A,B Incorrect efter Reset Timer with 1 microsecond Delay’ 
2046 037470 124 151 155 T16T26:.ASCIZ ‘Timer A,B Incorrect efter Reset Timer with 26 microsecond Deley’ 
2047 037570 124 151 155 T161T53:.ASCIZ ‘Timer A,B Incorrect efter Reset Timer with 53 microsecond Delay’ 
2048 037670 124 151 155 neylemoge = ‘Timer A.B Incorrect efter Reset Timer with 78 microsecond Delay’ 
° 
| 
| 


2049 
2050 
2051 re 
2052 ; SET DEFAULT PACKET 
2053 4 
2054 037770 TL6REST: 
2055 037770 012700 040150 MOV @TAGPACKET RO 1PACKET ADDRESS | 
2056 037774 012720 100004 MOV #100004, (RO)- iWRITE CHARACTERISTICS WITH ACK | 
2057 040000 012720 040160 HOV —-@TI6DATA, RO)» sADORESS OF CHAR DATA BLOCK | 
2058 040004 005020 CLR = (RO) sEXTENDED ADDRESS | 
2059 040006 012720 000012 HOV —-@10. , (RO) sSIZE OF MESSAGE PACKET 
2060 040012 012720 040172 HOV -@TI16BFR,(RO)- iMESSAGE BUFFER ADDRESS 
2061 040016 005020 CLR = (RO)- sCLEAR EXTENDED BUFFER ADORESS 
012720 000024 HOV 20. ,(RO)+ iLENGTH OF MESSAGE 
2063 040024 005020 CLR = (RO) sCLEAR ESS,ENB,EAI.ER 
2064 040026 005010 CLR = (RO) :CLEAR EXTENDED FEATURES WORD 
2065 040030 005037 040172 CLR © T168FR sCLEAR 1ST LOCATION IN MESSAGE BUFFER 
2066 040034 000207 RTS PC 
2067 
2068 3° 
2069 + CLEAR MESSAGE BUFFER 
2070 i. 
2071 040036 TL6CLRBUF : 
2072 040036 SAVREG 1SAVE R1-RS_UNTIL NEXT RETURN 
2073 040042 012701 040172 HOV OTI6BFR, RI 1GET MESSAGE BUFFER ADDRESS 
2074 040046 012702 000026 MOV -@TL6BEND-T16BFR,R2 1SIZE OF MESSAGE BUFFER IN BYTES 
2075 040052 105021 10: CLRB (Rs :CLEAR A BYTE 
2076 040054 005302 DEC 82 1 DONE? 
2077 040056 003375 BCT 108 1BR_IF NO 
2078 040060 000207 RTS PC : RETURN 
2079 
2080 s¢ 
2081 ; SETUP T16PK2 PACKET FOR READ STATUS 
g° 
2083 040062 T16SRD: 
040062 004737 040036 JSR PC, TL6CLRBUF 1CLEAR MESSAGE BUFFER 
2085 040066 012700 040230 HOV —-@TA6DT2, RO iWRITE SUBSYSTEM DATA BUFFER 
2086 040072 112720 000005 HOVE —-@PW. RDSTATUS, (RO)+ iSTORE READ STATUS COMMAND IN BSELO 
2087 040076 105010 CLRB (RO) 1CLEAR BSEL1 
2088 040100 000207 RTS PC RETURN 
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TSVS - HARDWARE TESTS MACRO M1113 14-JUN-84 15:55 SEQ 0147 
TEST 5S: SUBTEST 2: VERIFY TIMERS A,B | 
2090 
2091 ¢ 
2092 ; SETUP TI6PK2 PACKET FOR WRITE MISC. 
2093 3 
2094 3 INPUT: 
2095 F RO CONTAINS WRITE MISC FUNCTION CODE (6SEL1) 
2096 ; RL CONTAINS DELAY (TIMES 800 NS) FOR BSEL2 
2097 s- 
2098 040102 TI6WMISC: 
2099 040102 SAVREG sSAVE R1-RS UNITL NEXT RETURN 
2100 040106 004737 040036 JSR PC, TI6CLRBUF sCLEAR MESSAGE BUFFER 
2101 040112 012702 040230 MOV @T160T2,R2 sWRITE SUBSYSTEM DATA BUFFER 
2102 040116 112722 000010 MOVE oP. WMISC ,.CR2)+ sSTORE WRITE MISCELLANEOUS IN BSELO 
2103 040122 110022 MOvVB RI,CR2)+ sSTORE WRITE MISC CODE IN BSEL1 
2104 040124 110112 MOVB R1,(CRe) sSTORE DELAY (RESET TIMER) IN BSEL2 
a 040126 000207 RTS PC sRETURN 
3¢ 
ted ; SETUP TI6PK2 PACKET FOR WRITE MISC. INVERT EXTENDED FEATURES SWITCH 
i ge 
2109 040130 T16SEXT: 
2110 040139 012700 040230 MOV #T160T2,RO WRITE SUBSYSTEM DATA BUFFER 
2111 040134 112720 000010 MOVE @Pu. WMISC ,(CRO)> ) STORE WRITE MISCELLANEOUS IN BSELO 
2112 040140 112710 000200 MOVB ons .EXT, (RO) | STORE INVERT EXTENDED FEATURES IN BSEL1 
2113 040144 000207 RTS PC 3;RE TURN 
2114 
2115 
2116 
2117 
ni 040150 .*¢,+¢10>€177770 
PF 
oo sWRITE CHARACTERISTICS COMMAND PACKET 
3 
2124 040150 TI6PACKET : sCOMMAND PACKET a TEST 
2125 040150 100004 -WORD 100004 SURITE CHARACTERISTICS COMMAND, WITH ACK 
126 040152 040160 -WORD TI6DATA sADORESS OF CHARACTERISTICS BLOCK 
2127 040154 -WORD O 
ay 040156 000012 -WORD 10. sMESSAGE PACKET SIZE 
2130 040160 TI6DATA: sCHARACTERISTICS DATA BLOCK 
2131 040160 040172 .WORD T16BFR sADORESS OF MESSAGE BUFFER 
2132 040162 .WORD O 
2133 040164 000024 -WORD 20. ; LENGTH i! a — yp BUFFER 
2134 040166 000000 -WORD O sESS,ENB,EAI,ERI 
sas 040170 000000 . WORD 0 s EXTENDED FEATURES WORD 
2137 
sp sMESSAGE BUFFER 
2140 040172 TI6BFR: sBEGIN MESSAGE BUFFER 
2141 040172 000000 -WORD O sMESSAGE TYPE 
2142 040174 000000 -WORD O sDATA FIELD LENGTH 
2143 040176 000000 -WORD 0O RBPCR 
2144 040200 000000 -WORD O sXSTO 
2145 040202 000000 .WORD O sXST1 
040204 000000 -WORD O sxST2 
2147 040206 000000 -WORD O sXST3 
2148 040210 000000 -WORD O sXST4@4 (ALWAYS PRESENT FOR WRITE SUBSYSTEM 
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FY TIMERS A,B 


SEQ 0148 


TI6BFSTA: .BLKB 6. sREAD STATUS AND WRITE FIFO BUFFER 
TI6BEND: sEND OF MESSAGE BUFFER 
3 
sWRITE SUBSYSTEM READ STATUS COMMAND PACKET 
3 
T16PKe: 
.WORD P.WRTSUB!P. ACK sWRITE SUBSYSTEM WITH ACK 
-WORD T160T2 sLOW ADORESS OF DATA BLOCK 
-WORD O sHIGH ADDRESS OF DATA BLOCK 
. WORD 10. sMINIMUM MESSAGE PACKET SIZE 
T160T2: sDATA BLOCK 
BYTE O sBSELO 
.BYTE O ;BSEL1 
-WORD O ;SEL2 
-BLKB 64, sWRITE FIFO DATA OUTPUT BUFFER 
ENDTST 


L10053: 
TRAP 


CsETSsT 


a 
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046566 
016510 
0000 

017274 
003134 


~ 
fo 


002216 


-SBTTL TEST 6: FIFO EXERCISER 


zee 
s TEST DESCRIPTION: 


Cc 
T17LO0P: 


This test uses the Write Subsystem Memory command to 
verify the controller's FIFO end associated status and 
control logic. 


TEST STEPS: 
REPEAT FOR LOOPCNT 
BEGIN 
Do Subtest 1 - FIFO Initielize stetus test 
Do Subtest 2 - FIFO Write Single Byte test 
Do Subtest 3 - FIFO Write Multiple Bytes test 
Do Subtest 4 - FIFO Verify ILwW ——- test 
Do Subtest 5 - FIFO Input Ready t 
se” Subtest 6 - FIFO Verify Reset eTFO test 
BGNTST 


MOV #TST17I0,RO sASCII MESSAGE 
SETUP 


MANAGEME 
sREALLY SHUT DOWN KT-11 


-SBTTL TEST 6: SUBTEST 1: FIFO INITIALIZE STATUS TEST 


ze 
; TEST 6: SUBTEST 1: 

a 

s SUBTEST DESCRIPTION: 


This test verifies, the Read Status select code, 
thet the FIFO stetus ay le correct initiel state after 
the controller is initialized (Input Reedy 
Ready end Dete In Mies FALSE). These status 
signele ere checked by the controller's self-test 
sequence, so this subtest is ectuelly more of ea partial 
check of the Read Stetus function than the FIFO status. 


TEST STEPS: 


BEGI 


M 

Write to TSSR to soft initielize 

Do e WRITE CHARACTERISTICS to setup a message buffer 
Do e WRITE SUBSYSTEM Reed Status 

If Input Ready NOT*1 Then Print Error 

If Output Ready NOT<=0 Then Print Error 


am Dete In Mies NOT=0_ = Then Print Error 


SEQ 0149 


—— a ee ee ee  - e e  e e  e - ee e 
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2232 — 

2233 040364 BGNSUB 3//////////// BEGIN SUBTEST ////////7// 
040364 T6.1: 
040364 104402 TRAP Cs6SUB 

2234 

2235 ’ Write to TSSR register to soft initialize the controller 

2236 040366 S$: 

2237 040366 004737 015774 JSR PC, SOF INIT sWRITE TO TSSR TO — INITIALIZE 

2238 040372 103405 ecs 10$ sBR SOFT INIT OKAY 

2239 040374 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 

2240 040376 ERRDF ERRNO, SFIERR,SFIMSG SDEVICE FATAL DURING INIT 
040376 104455 TRAP + pad 
040400 0011350 . WORD 
040402 003652 - WORD or IERR 
040404 012034 “WORD  SFIMSG 

2241 3 Do e Se — to setup e message buffer 

2242 040406 005037 002222 10%: CLR sCLEAR FATAL ERROR FLAG 

2243 040412 012704 050160 MOV OT ITPACKET, Ra sGET THE ADORESS OF COMMAND PACKET 

2244 040416 004737 010662 JSR PC,,WRTCHR :00 WRITE CHARACTERISTICS COMMAND 

2245 040422 FORCERROR 42% s@@0FORCE ERROR IF FORCER=1 

2246 040436 103407 ecs 50% s6R IF CARRY SET (GOOD RETURN) 

2247 040440 010001 MOV RO,R1 sSAVE CONTENTS OF 7SSR 

2248 040442 NEXT . ERRNO 

2249 040442 423: ERRDF ERRNO,T17SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
040442 104455 TRAP CSEROF 
040444 001131 -WORD 601 
040446 046605 -WORD 117SSR 
040450 012046 -WORD PKTSSR 

2250 040452 005237 002222 INC FATFLG ;SET FATAL ERROR FLAG 

2251 040456 50$: CKLOOP sLOOP ON ERROR, IF FLAG a 

a 040456 104406 CSCLP1 

2253 3 Do ea Write Subsystem READ STATUS 

2254 040460 004737 047744 JSR PC,.T17 SETUP PACKET FOR READ STATUS 

2255 040464 012704 050330 MOV @T17PK2 ,R4 iGET WRITE SUBSYSTEM COMMAND PACKET 

2256 040470 010465 000000 MOV R4, TSOBCRS) sSET THE PACKET ADORESS TO EXECUTE 

2257 040474 004737 016336 JSR PC,.CHKTSSR sWAIT FOR SSR TO SET 

2258 040500 FORCERROR 62% s8BOFORCE ERROR IF FORCER=1 

2259 040514 103407 ecs 70% 36R IF CARRY SET (GOOD RETURN) 

2260 040516 010001 MOV RO,R1 sSAVE CONTENTS GF TSSR 

2261 040520 NEXT .ERRNO 

2262 040520 62%: ERROF ERRNO,1T173SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
040520 104455 TRAP CSEROF 
040522 001132 -WORD 602 
040524 046706 .WORD 1173SSR 
040526 012046 .WORD PKTSSR 

2263 040530 005237 002222 INC FATFLG sSET FATAL ERROR FLAG 

2264 040534 70$: CKLOOP sLOOP ON ERROR, IF FLAG ee 
040534 104406 CSCLP1 

2265 : Set WORDS 0-7 of expd message buffer = to recv since on seoktoa 

2266 040536 004737 050126 JSR PC. TI7SETEXP sSET WORDS 0-7 EXPD=RECV 

2267 040542 012701 046362 MOV @TI7EXSTA,R1 }GET EXPECTED READ STATUS 

2268 040546 012702 050222 MOV @T1L7BFSTA,R2 sGET RECV READ STATUS 

2269 040552 012221 MOV CR2)¢,CR1)D+ sSET EXPD WORD #6 = RECV TEMP 

2270 040554 011211 MOV CR2),CR1) sSET EXPD WORD @9 = RECV TEMP 

2271 040556 052711 000020 BIS #S2.INRDY,(R1) sSET £XP INPUT READY= TRUE 


2272 040562 042711 000040 BIC @S2. OUTROY,(R1) sSET EXP OUTPUT READY= FALSE 





i a i i a i = rr ee ees ee 


TSVS - HARDWARE 


042711 
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000200 


002222 
017202 


SEG 0151 
BIC #S2.0IM,(R1) sSET EXP DATA IN MISS = FALSE 
If Input Ready NOT*1 then Print Error 
If Output Reedy NOT=0 or Data in Mies NOT*0 Then Print Error 
CLP RO sHIGH RECV ADDRESS FOR CKMSG2 
MOV OT17BFR,R1 sLOW RECV ADDRESS FOR CKMSG2 
MOV OTL7EXP ,R2 sEXPD ADDRESS 
MOV 620. ,R3 sNUMBER OF BYTES TO COMPARE 
JSR PC ,CKMSG2 sEXPD EQUAL RECV? 
FORCERROR 82% ,NOTSSR 3380 
BCcS 90% 3;BR IF YES 
NEXT .ERRNO 
RRHRD ERRNO,1T171CMP ,MSGSTAT sREPORT ERROR 
TRAP CSERHRD 
-WORD 603 
. WORD T171CMP 
-WORD MSGSTAT 
CKLOOP ;LOOP ON ERROR, IF FLAG SET 
TRAP CSCLP1 
ENDSUB 34/////////7/7/ END SUBTEST ////////7/7/ 
L10057: 
TRAP CsESUB 


TST FATFLG sANY FATAL ERRORS ? 
BEQ 160% sBRANCH IF NOT 
JSR PC ,CKDROP sTRY TO DROP THE UNIT 


-SBTTL TEST 6: SUBTEST 2: FIFO WRITE SINGLE BYTE TEST 


s+ 
; TEST 6: SUBTEST 2: 


é 
é 
; 
é 
é 
3 
. 
a 
é 
é 
; 
é 
3 
é 
; 
+ 
; 
; 
5 
, 
3 
3 
: 
+ 


3. Read Stetus is executed and FIFO status is checked. 
4. Read FIFO is executed and the date and final status 
is checked. 
TEST STEPS: 
BEGIN 


; 
SUBTEST DESCRIPTION: 


This subtest verifies the ability of the FIFO to correctly 
pess ea single dete byte from input to output. For each 
of 256 dete velues (0-377 octal) the following is done: 
1. Initiel FIFO stetus is checked 
2. The Write FIFO function, specifying a count of 
te to be written is executed. 


Write to TSSR to soft initialize 
Do ea WRITE ernment 16 A a @ message buffer 


If Input Ready NOT=1 Then Print Error 
If Output Ready NOT=0 Then Print Error 
If Date In Miss NOT=0 - Then Print Error 


REPEAT FOR DATA FROM O TO 377 OCTAL 
BEGIN 
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So 


oe 
$ 


2342 040656 004737 015774 


g 
¥ 
So 
8 


2346 : 
| 2347 040676 005037 002222 10$: 


2354 040732 42%: 


2355 040742 005237 002222 


2358 040750 004737 047744 
a 040754 012704 050330 


000000 
2361 040764 004737 016336 


2366 041010 623: 





5:55 SEQ 0152 


nput Ready 

Output Ready NOT=1 Then Prine Error 

If Deen In Mies NOT*O = Then Print Error 

Do Write a READ FIFO with byte count equal to 1 
If Date reed from FIFO NOT= Se Dete sent Then Print Error 
Do a Write Subsystem READ STATUS 

If Input Ready NOT*1 # Then Print Error 

If Output Ready NOT*0 Then Print Error 

If Date In Misa NOT*0 Then Print Error 


BGNSUB ALAA ALAA = SASASASSSS 
TRAP Cs#BSUB 

Write to TSSR register to soft initialize the controller 

= a gt iaet inat Gane INITIALIZE 


MOV RO. R1 sSAVE CONTENTS OF TSSR 
ERROF ERRNO, SFIERR, SFIMSG sDEVICE FATAL DURING —_ =" 


CSEROF 
«WORD 603 
«WORD SFIERR 
-WORD SFIMSG 
Do a WRITE laden to setup ea message buffer 
CLR FATF sCLEAR FATAL ERROR FLAG 
MOV OTLIPACKET, Ra ;GET THE ADDRESS OF COMMAND PACKET 
JSR PC ,WRTCHR 300 WRITE CHARACTERISTICS COMMAND 
FORCERROR aos ;@@DFORCE ERROR IF FORCER=1 
BCS 50% 3BR IF CARRY SET (GOOD RETURN) 
+ oe RO,R1 ;SAVE CONTENTS OF TSSR 
E ERRNO, T17SSR,PKTSSR s;DEVICE FATAL SSR FAILED TO SET 
TRAP CSEROF 
-WORD 604 
. WORD T17SSR 
.WORD PKTSSR 
INC FATFLG sSET FATAL ERROR FLAG 
CKLOOP sLOOP ON ERROR, IF FLAG SET 
TRAP CSCLP1 


Do a Write Subsystem READ STATUS 
JSR PC skb ;SETUP PACKET FOR READ STATUS 

;GET WRITE SUBSYSTEM COMMAND PACKET 
;SET THE PACKET ADDRESS TO EXECUTE 
;WAIT soa SSR TO SET 


FORCERROR 62% ORCE ERROR 2 FORCER=1 
BCS 70% :6R IF CARRY Y SET (GOOD RETURN) 
MOV RO,R1 ; SAVE CONTENTS OF TSSR 
NEXT . ERRNO 
ERROF ERRNO,T173SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
TRAP CsEROF 
-WORD 605 


2410 041230 


046706 
012046 
005237 


104406 
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002222 


002222 


000001 
002312 
050032 


002312 


70$: 


90$: 


100$: 


“K12 


+WORD 1173SSR 


-WORD PKTSSR 
INC FATFLG +SET FATAL ERROR FLAG 
CKLOOP sLOOP ON ERROR, IF FLAG SET 

TRAP CSCLPi 
Set WORDS 0-7 of ae message buffer = to recv since not testing 
JSR PC, T17SETE sSET WORDS 0-7 EXPD=RECV 
MOV @TL7EXSTA, a /GET EXPECTED READ STATUS 


MOV (R2>+,(R1)+ sSET EXPD WORD #6 = RECV TEMP 
MOV (R2),(R1) sSET EXPD WORD #9 = RECV TEMP 
BIS - INRDY,(R1) sSET EXP INPUT READY= TRUE 

BIC @S2. OUTRDY,(R1) sSET EXP OUTPUT READY= FALSE 
BIC #S2.DIM,(R1) sSET EXP DATA IN MISS = FALSE 


If Input Ready NOT#1 then Print Errer 

If Output Ready NOT=0 or Data in Miss NOT*0 Then Print Error 
CLR RO sHIGH RECV ADDRESS FOR CKMSG2 
MOV @T17BFR,R1 ;LOW RECV ADORESS FOR CKMSG2 


MOV @T17EXP ,R2 sEXPD ADDRESS 

MOV #20. ,R3 sNUMBER OF BYTES TO COMPARE 
JSR PC ,CKMSG2 sEXPD EQUAL RECV? 

FORCERROR 82% ,NOTSSR : 330 

BCS 90% BR IF YES 

NEXT .E 


RRNO 
ERRHRD ERRNO,T171CMP,MSGSTAT  ;REPORT ERROR 
TRAP CSERHRD 


* 606 
‘ T171CMP 
-WORD MSGSTAT 
CKLOOP ;LOOP ON ERROR, IF FLAG SET 
TRAP CSsCLP1 
; Repeet for DATA fom 0 to 377 
MOV @0,DATA sGET FIRST DATA 
sREPEAT a 
Do a Write Subsystem WRITE NPR to set t direction ou 
MOV ONnP .OUT ,RO sSET T DIRECTION our. 
JSR PC, T17SNPR ; SETUP T17PK2 FOR WRITE NPR 
MOV @T17PK2,R4 sGET WRITE SUBSYSTEM COMMAND PACKET 


102$: 


sSET THE PACKET ADDRESS TO EXECUTE 
sWAIT FOR SSR TO SET 


FORCERROR 102% s@@0FORCE ERROR IF FORCER=1 

BCS 105% :BR IF CARRY SET (GOOD RETURN) 

MOV RO,R1 ; SAVE CONTENTS OF TSSR 

NEXT . ERRNO 

ERRDF ERRNO,T174SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
TRAP CSEROF 

607 

-WORD 1174SSR 
-WORD PKTSSR 

INC FATFLG ;SET FATAL ERROR FLAG 

CKLOOP sLOOP ON ERROR, IF FLAG I —" 


Do ea Write Subsystem WRITE FIFO with byte count equal io om 
MOV #1,RO0 sWRITE 1 BYTE 

MOV @0ATA, R1 sFIFO WRITE DATA ADORESS 

JSR PC, TL 7WF IF sSETUP T17PK2 FOR WRITE FIFO 


55 SEQ 0153 
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2411 041234 012704 050350 
000000 
2413 041244 004737 016536 


2418 041270 107%: 


2419 041300 005237 002222 
2420 


2 
| 9423 041306 004737 047744 
2424 041312 012704 050330 


000000 
004737 016336 


| 322 

| 

| 2429 041344 010001 
| 2431 041346 112$: 


041362 104406 
1452 

| 

| 

| 

| 

| 


2 
2452 041454 
2453 041454 132%: 


Lie 


ERRNO, T175SSR,PKTSSR 


15:55 

MOV @T17PK2,R4 
MOV R4, TSOBCRS) 
JSR PC, CHKTSSR 
FOR 107 
BCS 110% 

MOV RO,R1 

NEXT . ERRNO 

ERROF 

INC FATFLG 
CKLOOP 


Do a Write vases READ STATUS 
PC 


SEQ 0154 


sGET WRITE SUBSYSTEM COMMAND PACKET 
sSET THE PACKET ADDRESS TO EXECUTE 
sWAIT ae SSR TO SET 

ORCE ERROR IF FORCER=1 
sBR IF CARRY SET (GOOD RETURN) 
SAVE CONTENTS OF TSSR 


sDEVICE FATAL SSR FAILED TO SET 
TRAP = eee 


. WORD 
a T175SSR 
PKTSSR 
sSET FATAL ERROR FLAG 
sLOOP ON ERROR, IF FLAG SET 
TRAP CsCLPi 


JSR .T17 sSETUP PACKET FOR READ STATUS 

MOV @T17PK2 ,R4 sGET WRITE SUBSYSTEM COMMAND PACKET 
MOV R4, TSOBCRS) sSET THE PACKET ADDRESS TO EXECUTE 
JSR PC .CHKTSSR sWAIT FOR SSR TO SET 

F 112$ s;@G0FORCE ERROR IF FORCER=1 
BCS 120% 3BR IF CARRY SET (GOOD RETURN) 

° RO,R1 ;SAVE CONTENTS OF TSSR 


RRNO 
ERRDF ERRNO, T173SSR,PKTSSR sDEVICE FATAL SSR ae 


INC FATFLG 
CKLOOP 


CSEROF 
° 609 
° T173SSR 
PKTSSR 
sSET FATAL ERROR FLAG 
sLOOP ON ERROR, IF FLAG SET 
TRAP CSCLP1 


Set WORDS 0-7 of e message buffer = to recv since not testing 
JSR xP 1SE 


PC, T1I7SETEX T WORDS 0-7 EXPD=RECV 
MOV @TI7EXSTA,R1 1GET EXPECTED READ STATUS 
MOV OT17BFSTA,R2 sGET RECV READ STATUS 
MOV CR2)+,CR1)+ sSET EXPD WORD 06 = RECV TEMP 
MOV CR2),(R1) sSET EXPO WORD #9 = RECV TEMP 
BIS @S2.INROY,(R1) sSET EXP INPUT READY= 1 
BIS #S2.OUTRDY,(R1) sSET EXP OUTPUT READY= 1 
BIC #S2.0IM,(R1) 3SET EXP DATA IN MISS = 0 


If Input Ready NOT=1 then Print bver 

If ee Ready NOT=1 or Data in Miss NOT=0 Then Print Error 
CLR RO sHIGH RECV ADDRESS FOR CKMSG2 
MOV @T1I7BFR,R1 3LOW RECV ADDRESS FOR CKMSG2 


MOV OT17EXP .R2 sEXPO ADDRESS 

MOV #20. ,R sNUMBER OF BYTES TO COMPARE 
JSR PC ,CKMSG2 sEXPD EQUAL RECV? 
FORCERROR 132% ,NOTSSR ; 880 

BCS 140% :BR IF YES 


NE RRNO 
ERRHRD ERRNO,T173CMP,MSGSTAT  ;REPORT ERROR 








2454 041464 


2494 041674 
2495 041676 
2496 041700 
2497 041700 


104406 


013721 


194406 
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140$: 


047744 
050330 


000000 
016336 


1428: 


162$: 


Mle 


SEQ 0155 


CKLOGP sLOOP ON ERROR, IF FLAG SET 


TRAP CSCLP1 


Do Write Subsystem READ FIFO with byte count equal to 1 
MOV #1,RO0 sSET READ BYTE COUNT 
7PK2 FOR READ FIFO 


PACKET 
HE PACKET ADORESS TO EXECUTE 
sWAIT FOR SSR TO SET 


FORCE 142% s@G0FORCE ERROR IF FORCER=1 
BCS 150% sBR IF CARRY SET (GOOD RETURN) 
eet 5 RO,R1 sSAVE CONTENTS OF TSSR 
ERROF ERRNO,T176SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
TRAP CSERDF 
-WORD 611 
_— T176SSR 
PKTSSR 
INC FATFLG sSET FATAL ERROR FLAG 
CKLOOP ;LOOP ON ERROR, IF FLAG SET 
TRAP CSCLP1 


Set WORDS 0-7 of one message buffer = to recv since not testing 
JSR PC, TI7SETE sSET WORDS 0-7 EXPD=-RECV 

MOV @TI7EXSTA,R1 
MOV OTL 7BFSTA,R2 
MOV DATA,(R1)+ COUNT DAT 

MOV CR2),CR1) sSET EXPD WORD @9 = RECV (NOT A TESTING) 
If Date read from FIFO NOT= to Data sent Then Print Error 

The date is in WORD 06 of the buffer 

CLR RO sHIGH RECV ADORESS FOR CKMSG2 

MOV @T17BFR,R1 sLOW RECV ane FOR CKMSG2 


MOV @T17EXP ,R2 sEXPO ADDRESS 

MOV #18. ,R3 sNUMBER OF BYTES TO COMPARE 
JSR PC .CKMSG2 sEXPD EQUAL RECV? 
FORCERROR 152$,NOTSSR 3880 

BCS 160$ 38R IF YES 

NEXT . ERRNO 


ERRHRD ERRNO, T172CMP ,MSGSUB s;REPORT ERROR 


TRAP CSERHRD 

. WORD 

. WORD 

. WORD 
sLOOP ON ERROR, IF FLAG SET 

TRAP 


CKLOOP 
C$CLP1 


Do a Write Subsystem READ STATUS 

JSR PC,1T17 ;SETUP PACKET FOR READ STATUS 

;GET WRITE SUBSYSTEM COMMAND PACKET 
3SET THE PACKET ADDRESS TO EXECUTE 
;WAIT er SSR TO SET 


FORCERROR 162% ORCE ERROR IF FORCER=1 
BCS 170% sBR IF CARRY SET (GOOD RETURN) 

MOV RO,R1 i SAVE CONTENTS OF TSSR 

NEXT . ERRNO 

ERROF ERRNO, T173SSR,PKTSSR 


sDEVICE FATAL SSR FAILED TO SET 
TRAP 


CSERDF 
-WORD 613 


—_ -_——— - -—— 


ee On 
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041704 046706 «WORD 1173SSR 
041706 012046 .WORD PKTSSR 
2498 041710 005237 002222 INC FATFLG sSET FATAL ERROR FLAG 
2499 041714 170$: CKLOOP sLOOP ON ERROR, IF FLAG SET 
041714 104406 TRAP CSCLP1 
: Set WORDS 0-7 of ose message buffer = to recv since nct testing 
2501 041716 004737 059126 JSR PC, TI 7SETEX ;SET WORDS 0-7 EXPD=RECV 
2502 041722 012701 046362 MOV @TI7EXSTA, Ri ;GET EXPECTED READ STATUS 
2503 041726 012702 050222 MOV @T17BFSTA,R2 3;GET RECV READ STATUS 
2504 041732 012221 MOV (R2)+,(R1)+ sSET EXPD WORD 66 = RECV TEMP 
2505 041734 011211 MOV (R2),(R1) ;SET EXPD WORD #9 = RECV TEMP 
2506 041736 052711 000020 BIS @S2.INRDY,(R1) sSET EXP INPUT READY= 1 
2507 041742 042711 000040 BIC @S2.QOUTRDY,(R1) 3SET EXP OUTPUT READY= 0 
2508 041746 042711 000200 BIC @S2.0IM,(R1) ;SET EXP DATA IN MISS = 0 
F If Input Reedy NOT=1 then Print Error 
10 3 If Output Ready NOT=0 or Data in Miss NOT=0 Then Print Error 
2511 041752 CLR RO sHIGH RECV ADDRESS FOR CKMSG2 
2512 041754 012701 050202 MOV @T17BFR,R1 sLOW RECV ADDRESS FOR CKMSG2 
2513 041760 012702 046342 MOV @T17EXP ,R2 sEXPD ADORESS 
2514 041764 012703 000024 MOV #20. ,R3 ;NUMBER OF BYTES TO COMPARE 
2515 041770 004737 011500 JSR PC, ;EXPD EQUAL RECV? 
2516 041774 FORCERROR 172¢,NOTSSR ; 330 
2517 042004 103404 BCS 1 7BR IF YES 
2518 042006 NEXT .ERRNO 
2519 042006 172$: ERRHRD ERRNO,1T174CMP,MSGSTAT s;REPORT ERROR 
04 104456 TRAP CSERHRD 
042010 001146 . WORD 14 
042012 047367 -WORD 1174CMP 
14 012350 .WORD MSGSTAT 
2520 042016 180¢: CKLOOP ;LOOP ON ERROR, IF FLAG SET 
042016 104406 TRAP CSCLP1 
2521 042020 FORCEXIT 205% 3230 
042030 005237 002312 INC DATA ;GET NEXT vest DATA 
2523 042034 023727 002312 000377 CMP DATA, #377 sD0NE O TO 377? 
2524 042042 101002 BHI 205% ;BR IF YES 
2525 042044 000137 041136 JMP 100$ 309 ANOTHER TEST PATTERN 
co 042050 205%: 
2528 042050 ENOSUB s4///4141/41/4 END SUBTEST ////////// 
042050 L10060: 
042050 104403 TRAP CsESUB 
2530 042052 005737 002222 TST FATFLG sANY FATAL ERRORS ? 
2531 042056 001402 BEQ 260% sBRANCH IF NOT 
2532 042060 004737 017202 JSR PC ,CKDROP sTRY TO DROP THE UNIT 
fo. 042064 2608: 
ta .SBTTL TEST 6: SUBTEST 3: FIFO WRITE MULTIPLE BYTES TEST 
2537 pee 
2538 ; TEST 6: SUBTEST 3: 
2539 5 
cae ; SUBTEST DESCRIPTION: 
: 
2542 ; This subtest verifies the ability of the FIFO to correctly 
2543 3 pass eo multiple date bytes from input to output. 
2544 ; The following sequence is done with various dete patterns 
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TEST 6: SUBTEST 3: FIFO WRITE MALTIPLE BYTES TE 
2545 


- 
$1 SEQ O15 


end byte courte from 2 to 64. 


; 
2546 : 1. Initiel FIFO etetue is checked 
2547 ’ 2. Tre Write FIFO function. 
2548 : 3. Reed Stetus is executed and FIFO stetus is checked. 
2549 ‘ 4. Reed FIFO is executed and the dete and finel stetus 
2550 : is checked. 
2551 F 
2552 s TEST STEPS: 
2553 3 
: BEGIN 
2555 F Write to TSSR te soft initielize 
2556 s Do @ WRITE CHARACTERISTICS to setup © aessege bul fer 
2557 : Do @ Write Sweystes READ STATUS 
2558 F If Input Ready NOT*1 Then Print Error 
2559 3 If Qutput Ready NOT*O Then Print Error 
2560 3 If Dete In Mies NOT*O Then Print Error 
2561 3 If Lest Word NOT*O 8 8=—s Then Print Error 
2562 3 REPEAT FOR DATA O TO 377, 377 TO 0, FLOATING 1°S.0°S AMD Mi 1°5/0'S 
2563 : REPEAT FOR BYTE COUNT 2 TO 64 
Paes) : BEGIN 
2565 3 De @ Write Sweyster WRITE WR to set tape direction out 
2566 3 Bo e Write Sweyetes WMITE F 
2567 : Do e Write Supeyster READ STATUS 
2568 ; If Input Ready NOT*1 Then Print Error 
2569 ; If Output Ready NOT*1 Then Print Error 
2570 3 If Oete In Mies NOT*O Then Print Error 
2571 ; I? Last Mord MOT*O)0=—s« Then Print Error 
2572 3 Do Write ——— READ “IFO 
2573 : If Dete reed FIFO NOTe to Dete sent Then Print Error 
2574 ; Do e Write Supeyeter READ STATUS 
2575 F If Input Ready NOT*1 Then Print Error 
2576 F If Output Ready NOT<0 Then Print Error 
2577 3 If Dete In Mies NOT*0 Then Print Error 
2576 ; If Lest Word NOT*O 3 Then Print Error 
2579 3 END 
2580 s END 
2561 —_ 
2582 042064 BGNSUB 3444411411144 BEGIM SUBTEST 4/4/////7/77/ 
04 2064 76.3: 
042064 104402 cses'B 
2564 : Write to TSSR register to soft initielize the controller 
2585 042066 Ss: 
2586 042066 004737 015774 JSR PC. SOF INIT sWRITE TO TSSR TO hy INITIALIZE 
2587 042072 103405 ecs 108 30R IF SOFT INIT OKAY 
2588 042074 010001 MOV RO,RS sSAVE CONTENTS OF TSSR 
2589 042076 ERRDF ERRNO, SFIERR,SFINSG iDEVICE FATA OURING INIT 
| 042076 106455 TRAP CsEROF 
042100 001146 -WORD 614 
042102 003652 .WORD SFIERR 
042104 012034 .WORD SFIMSG 
2590 5 Do e WRITE CHARACTERISTICS to = a buffer 
2591 042106 005037 002222 10%: CLR FATAL ERROR 
2592 042112 012704 050160 MOV OT17PACKET ,R4 1GET THE ADORESS OF COMMAND PACKET 
2593 042116 004737 010662 JSR PC, URTCHR 300 WRITE CHARACTERISTICS COMMAND 
2594 042122 42% s@GDFORCE ERROR IF FORCER-1 


sR IF CARRY SET (GOOD RETURN) 
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010001 


104455 
001147 


005237 


002222 


047744 
050330 


000000 
016336 


000024 
011500 


maai2 
mT 


708: 


C13 


15:55 SEQ 0158 
TEST 
cant s RO,R1 sSAVE CONTENTS OF TSSR 
ERROF ERRNO, T17SSR,PKTSSA sDEVICE FATAL SSR FAILED TO SET 
TRAP CSERDF 
-WORD 615 
-WORD T17SSR 
-WORD PKTSSR 
INC FATFLG sSET FATAL ERROR FLAG 
CKL OOP sLOOP ON ERROR, IF FLAG S. ens 
$ 1 
Do e Write 77" pe READ STATUS 
JSR PC,.T17 sSETUP PACKET FOR READ STATUS 
MOV OT17PK2 ,.R4 sGET WRITE SUBSYSTEM COMP PACKE 
MOV R4, TSOBC(RS ) sSET THE PACKET — TO EXECUTE 
JSR PC .CHKTSSR iMAIT FOR SSR TO SE 
6 1 @GDF ORCE ERROR IF FORCER=1 
ecs 708 s8R IF CARRY SET (GOOD RETURN) 
Ov RO,R1 sSAVE CONTENTS OF TSSR 
NEXT . ERRNO 
ERRDF ERRNO,1175SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
Trap CSERDF 
. WORD 16 
-WORD 1173SSR 
.WORD PKTSSR 
INC FATFLG sSET FATAL ERROR FLAG 
CKLOOP sLOOP ON ERROR, IF FLAG =. — 
Set WORDS 0-7 of e messege buffer = to recy since not ye 
JSR Pc TLTSETEX sSET WORDS 0-7 EXPD-RECV 
MOV @TI7EXSTA,R1 sGET EXPECTED READ STATUS 
MOV OTL7BFSTA,R2 sGET RECV READ STATUS 
MOV CR2)¢, CRI Do sSET EXPD WORD 66 = RECV TEMP 
mov —- (R2), CRA) sSET EXPD WORD 09 = RECV TEMP 
81S @S2. INRDY .CR1) sSET EXP INPUT READY= 1 
BIC @S2 ..QUTRDY CR sSET ExP Ye 0 
BIC @S2.0IM,(R1) sSET EXP DATA IN MISS = 0 
BIC @S2.TLW,(R1) sSET EXP LAST WORD (ILW)-0 
If Input Ready NOT*1 then Print Error 
If Qutput Ready NOT=0 or Dete in Mies NOT*C Then Print Error 
If Lest Word NOT*O 8 3=—s Then Print Error 
CLR RO sHIGH RECV ADORESS FOR CKMSG2 
MOV OT1L7BFR,R1 sLOW RECV ADDRESS FOR CKMSG2 
MOV OTL7EXP ,R2 sEXPD ADDRESS 
MOV #20. ,R3 sNUMBER OF BYTES TO COMPARE 
JSR PC. sEXPD EQUAL RECV? 
F 62¢ ,NOTSSR 1820 
ecs 90% 18R IF YES 
NEXT 


- ERRNO 
ERRHRD ERRNO,TI7ICMP,.MSGSTAT  ;REPORT ERROR 
TRAP — 


-WORD T17iChP 

.WORD MSGSTAT 
CKLOOP sLCOP ON ERROR, IF FLAG SET 

TRAP Csc.P1 


D14 
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SEG 0159 


s REPEAT FOR BYTE COUNT 2 TO 64 DECIMAL 
2640 s TSTFLAG ©1 FOR INCREMENT TEST PATTERN 

; 

; 


eal *2 FOR DECREMENT TEST PATTERN 
2642 *3 FOR TSTBLK TABLE PATTERN 
2643 042344 012737 000001 002314 #1, TSTFLAG sTEST PATTERN FLAG 
2644 042352 $: 
2645 042352 012737 000002 002310 MOV #2, COUNT sGET FIRST BYTE COUNT 
2646 042360 1008: 
2647 : Do @ Write Subsystem WRITE NPR to set t direction out 
2648 042360 012700 000100 MOV @NP .OUT ,RO sSET TAPE DIRECTION OUT 
2649 042364 004737 050006 JSR PC, T17SNPR sSETUP T17PK2 FOR WRITE 
2650 042370 012704 050330 MOV @T17PK2,R4 sGET waive svesySTen COMMAND PACKET 
| «2651 042374 010465 MOV R4, TSOBCRS) sSET THE PACKET ADORESS TO EXECUTE | 
042400 004737 016336 JSR PC .CHKTSSR sWAIT FOR SSR TO SET 
2653 042404 FORCERROR 102$ s@G0FORCE ERROR IF FORCER=1 
2654 042420 103407 acs 105% 18R IF CARRY SET (6000 RE TURN) 
2655 042422 010001 MOV RO,R1 sSAVE CONTENTS OF T 
2656 042424 NEXT . ERRNO 
2657 0424246 102$:  ERROF ERRNO,T174SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
042424 104455 TRAP = CSEROF 
042426 001152 -WORD 618 | 
042430 046753 -WORD T174SSR 
042432 012046 WORD PKTSSR | 
2658 042434 005237 002222 INC FATFLG sSET FATAL ERROR FLAG 
2659 042440 105$:  CKLOOP sLOOP ON ERROR, IF FLAG SET | 
164406 TRAP =—ss« CSCLP1 
2660 ’ Do e Write $e Subeyeten WRITE FIFO 
2661 042442 004737 050106 JSR PC,T sCLEAR EXPD BUFFER 
2662 042446 012701 046464 MOV eTiTWFDATA, fey sEXPD WRITE FIFO DATA BUFFER 
2663 042452 013702 002310 MOV COUNT ,R2 STEST PATTERN SIZE 
2664 042456 022737 000001 002314 CMP 1, TSTFLAG sINCREMENT PATTERN THIS TIME THRU? 
2665 042464 001005 BNE 115% 18R IF NO 
CLR RO s INCREMENT TEST PATTERN 
2667 042470 110021 110$: MOVB R0,(R1)- 3S INCREMENT TEST BYTE 
| 2668 042472 INC RO sSET NEXT PATTERN 
| 2669 0424074 DEC 100? 
2670 042476 003374 BGT :8R IF NO 
| 2671 042500 022737 000002 002314 115%: CMP 02, TSTFLAG sDECREMENT PATTERN THIS TIME THRU? 
2672 042506 001006 BNE $ sBR IF NO 
| 2673 042510 012700 000377 MOV 0377 ,RO sDECREMENT TEST PATTERN 
| 2674 042514 110021 120: MOVB RO,(R1)- sSTORE DECREMENT TEST BYTE 
2675 042516 DEC RO sSET NEXT PATTERN 
2676 042520 DEC sOONE ? 
2677 042522 003374 8GT 1208 s8R IF NO 
| 2678 042524 022737 000003 002314 125%: CHP 03, TSTFLAG sTSTBLK PATTERNS THIS TIME THRU? 
2679 042532 001005 BNE 135% s6R IF NO 
| 2680 042534 012700 002752 MOV @TSTBLK RO sFLOAT 1'S/0'S ETC. TEST TABLE 
| 2681 042540 112021 130$: MOVB (RO)+,(R1)> sSTORE A TSTBLK BYTE 
| 042542 DEC R2 1 DONE ? 
| 2683 042544 003375 BGT 130% :BR IF NO 
| 2684 042546 135% 
042546 013700 002310 MOV COUNT , RO sFIFO BYTE COUNT 
| 2686 042552 012701 MOV OT17WFDATA,R1 sFIFO WRITE DATA ADDRESS 
2687 042556 004737 050032 JSR PC, TI7WF IF sSETUP T17PK2 FOR WRITE FIFO 
| 2688 042562 012704 050330 MOV @T17PK2,R4 1GET WRITE SUBSYSTEM COMMAND PACKET 
| 2689 042566 010465 000000 MOV R4, TSOBCRS) sSET THE PACKET ADDRESS TO EXECUTE 
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2690 042572 004737 0163536 JSR PC ,CHKTSSR sWAIT FOR SSR TO SET 

2691 042576 F RROR 142% s@B0F ORCE ERROR as Bm eget 

2692 042612 103407 6cs 150% s6R IF CARRY SET (GOOD RE 

2693 042614 010001 MOV RO,R1 ) SAVE CONTENTS OF TSSR 

2694 042616 NEXT .ERRNO 

2695 042616 142%: ERROF ERRNO,T175SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
042616 104455 TRAP CSERDF 
042620 0011535 . WORD 19 
042622 047016 rm T175SSR 
042624 012046 PKTSSR 
042626 005237 002222 INC FATFLG sSET FATAL ERROR FLAG 

2697 042632 150%: CKLOOP sLOOP ON ERROR, IF FLAG . 

2598 042632 104406 CSCLP1 

99 3 Do e Write Subsystem READ STATUS 

042634 004737 047744 JSR PC,T17 sSETUP PACKET FOR READ STATUS 

2701 042640 012704 0503350 MOV @T17PK2 ,R4 sGET WRITE SUBSYSTEM COMMAND PACKE 

2702 042644 010465 000000 MOV R4, TSOBCRS) sSET THE PACKET ADORESS TO EXECUTE 

2703 042650 004737 016336 JSR PC ,CHKTSSR sWAIT FOR SSR TO SET 

2704 042654 F 1578 s@G0FORCE ERROR IF FORCER=1 

2705 042670 103407 Bcs 160% s6R IF CARRY SET (GOOD RETURN) 

2706 042672 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 

2707 042674 NEXT . ERRNO 

2708 042674 157%: ERRDF ERRNO,T173SSR,PKTSSR sOEVICE FATAL SSR FAILED TO SET 
042674 104455 TRAP CSEROF 
042676 001154 -WORD 620 
042700 046706 — T173SSR 
042702 012046 PKTSSR 

2709 042704 005237 002222 INC FATFLG sSET FATAL ERROR FLAG 

2710 042710 160%: CKLOOP sLOOP ON ERROR, IF FLAG - 

ors 042710 104406 TRAP CSCLP1 

2712 3 Set WORDS 0-7 of > ¥ message buffer = to recv since not testing 

2713 042712 004737 050126 JSR PC, TL 7SETEX sSET WORDS 0-7 EXPD=RECV 

2714 042716 012701 046 MOV @TI7EXSTA,R1 ;GET EXPECTED READ STATUS 

2715 042722 012702 050222 MOV @T17BFSTA,R2 sGET RECV READ STATUS 

2716 042726 012221 MOV (R2)¢,CR1)> sSET EXPD WORD @6 = RECV TEMP 

2717 042730 011211 MOV CR2),(R1) sSET E WORD #9 = RECV TEMP 

27186 042732 052711 000020 BIS @S2.INROY,(R1) sSET EXP INPUT READY= 1 

2719 042736 052711 000040 BIS @S2.QUTROY,(R1) sSET EXP OUTPUT READY= 1 

2720 042742 042711 000200 BIC #S2.0IM,(R1) 3SET EXP DATA IN MISS = 0 

2721 042746 042711 000100 BIC #S2.ILW,(R1) 3SET EXP LAST WORD (ILW)=0 

27, F If Input Ready NOT=1 then Print iveee 

272 3 If Output Ready NOT=1 or Dete in Mise NOT*0 Then Print Error 

2724 042752 CLR RO sHIGH RECV ADORESS FOR CKMSG2 

2725 042754 012701 050 MOV @T17BFR,R1 }LOW RECV ADORESS FOR CKMSG2 

2726 042760 012702 046342 MOV @TL7VEXP ,R2 sEXPD ADDRESS 

2727 042764 012703 000024 MOV 620. ,R3 sNUMBER OF BYTES TO COMPARE 

2728 042770 004737 011500 JSR PC ,.CKMSG2 sEXPD EQUAL RECV? 

2729 042774 F 162¢ ,NOTSSR 3880 

2730 043004 103404 ecs 170% 7BR IF YES 

2731 043006 NEXT. 

162$: ERRHRD ERRNO,T173SCMP,MSGSTAT  ;REPORT ERROR 


ee eee ee 





2733 043016 
043016 


04 
2746 043074 
043100 


2762 

2763 043154 
2764 043160 
2765 043164 


2771 043214 
043214 
043216 


043222 
2772 043224 
2773 043230 
043230 


104406 


103406 


Fi3 
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002310 
050066 
050330 
000000 
016336 


002222 


047744 
050330 


000000 
016336 


002222 


172$: 


192%: 


212%: 


2208: 


HARDWARE TESTS 
test 6: SUBTEST 3: FIFO WRITE MULTIPLE BYTES TEST 
1708; 


CKLOOP 


Do Write Subsystem READ FIFO 
MOV COUNT ,RO 


MOV R4, TSOBCRS) 
JSR PC,CHKTSSR 

F 172% 
BCS 180% 

MOV RO,R1 


. ERRNO 
ERROF ERRNO,1T176SSR,PKTSSR 


INC FATFLG 
CKLOOP 


SEQ 0161 


sLOOP ON ERROR, IF FLAG SET 
TRAP CsCLP1 


sSET READ BYTE COUNT 
sSETUP T17PK2 FOR READ FIFO 
sGET WRITE SUBSYSTEM COMMAND PACKET 
sSET THE PACKET ADORESS TO EXECUTE 
sWAIT FOR SSR TO SET 

sSG0FORCE ERROR IF FORCER=1 
sBR IF CARRY SET (GOOD RETURN) 
sSAVE CONTENTS OF TSSR 


sDEVICE FATAL SSR FAILED TO SET 
TRAP 


CSEROF 
. WORD 2 
—— T176SSR 
PKTSSR 
sSET FATAL ERROR FLAG 
sLOOP ON ERROR, IF FLAG a 
CsCLP1 


If Dete read from FIFO NOT= to Dete sent Then Print Error 
CLR HIGH Vv 


RO 
MOV @T17WFDATA,R2 
MOV @TL7BFSTA,R1 
COUN 


MOV ° 

JSR 

FORCERROR 192% ,NOTSSR 
BCS 200% 

NEXT 

MOV COUNT 


»R1 
ERRHRD ERRNO, T17SCMP,FIFEXP 


CKLOOP 


Do e vale pee stem READ STATUS 
SR 173K 


J 

MOV eri PKs 

MOV R4, TsDB(RS) 

ae . SSR 
212% 

acs 2203 

MOV RO,R1 


RRNO 
RROF ERRNO,T173SSR,PKTSSR 


INC FATFLG 
LOOP 


sGET RECEIVED 
sNUMBER OF BYTES TO COMPARE 
sEXPD EQUAL RECV? 


; 880 

;6R IF YES 

3;GET BYTE COUNT 

sREPORT ERROR 
TRAP CSERHRD 
. WORD 3 
.WORD 1175CMP 
. WORD FIFEXP 

sLOOP ON ERROR, IF FLAG SET 
TRAP CSCLPi 


sSETUP PACKET FOR ae STATUS 
sGET WRITE SUBSYSTEM COMMAND PACKE 
sSET THE PACKET ADORESS 10 EXECUTE 
sWAIT FOR SSR TO SET 

IF FORCER=1 


ah ERROR 
sBR IF CARRY SET (GOOD RETURN) 
:SAVE CONTENTS OF TSSR 


sDEVICE FATAL SSR FAILED TO SET 
TRAP 


CsEROF 
-WORD 624 
-WORD 1173SSR 
-WORD PKTSSR 
sSET FATAL ERROR FLAG 
sLOOP ON ERROR, IF FLAG SET 
TRAP CSCLP1 
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2774 3 Set WORDS 0-7 of one message buffer = to recv since not testing 

2775 043232 004737 050126 JSR PC, TI 7SETEX sSET WORDS 0-7 EXPD=RECV 

2776 043236 012701 046362 MOV @TI7EXSTA, Ri iGET EXPECTED READ STATUS 

2777 043242 012702 050222 MOV @TL7BFSTA,R2 sGET RECV READ STATUS 

2778 043246 012221 MOV CR2)+,(R1)+ sSET EXPD WORD 06 = RECV TEMP 

2779 043250 011211 MOV CR2),(R1) sSET EXPD WORD 09 = RECV TEMP 

2780 043252 il BIS INADY,(R1) sSET EXP INPUT READY= 1 

2781 043256 042711 000040 BIC @S2.OUTRDY,(R1) sSET EXP OUTPUT READY= 0 

2782 043262 042711 000200 BIC @S2.0IM,(R1) sSET EXP DATA IN MISS = 0 

2783 043266 042711 000100 BIC @S2.ILW,(R1) sSET EXP LAST WORD CILW)<0 

2764 ’ If Input Ready NOT=1 then Print érror 

2785 ’ If Output Reedy NOT<0 or Deta in Mies NOT*0 Then Print Error 

2786 043272 005000 CLR RO sHIGH RECV ADDRESS FOR CKMSG2 

2787 043274 012701 050202 MOV @T17BFR,R1 sLOW RECV ADDRESS FOR CKMSG2 

2788 043300 012702 046342 MOV OTL 7EXP ,R2 sEXPD ADDRESS 

2789 043304 012703 000024 MOV 20. ,.R3 sNUMBER OF BYTES TO COMPARE 

2790 043310 004737 011500 JSR PC ,CKMSG2 sEXPD EQUAL RECV? 

2791 045314 FORCERROR 232% ,NOTSSR 18380 

2792 043324 103404 BCS 240% sBR IF YES 

2793 043326 NEXT .ERRNO 

2794 043326 232%: ERRHRD ERRNO,1T174CMP ,.MSGSTAT sREPORT ERROR 
043326 104456 TRAP C#ERHRD 
043330 001161 -WORD 625 
043332 047367 -WORD 1174CMP 
043334 012350 -WORD MSGSTAT 

2795 043336 240%: CKLOOP sLOOP ON ERROR, IF FLAG SET 
043336 104406 TRAP CSCLP1 

2796 043340 FORCEXIT 250% 7280 

2797 043350 005237 002310 INC COUNT iGET NEXT cy COUNT 

2798 043354 023727 002310 000077 CMP COUNT , 77 s00NE 0 TO 7 

2799 043362 101002 BHI 250% iBR IF YES 

2800 043364 000137 042360 JP 100% 300 ANOTHER BYTE COUNT 

2801 043370 005237 002314 250%: INC TSTFLAG 3;GET NEXT TEST PATTERN CODE 

2602 043374 023727 002314 000003 CMP TSTFLAG,@3 sO0NE INC,DEC,TSTBLK PATTERNS? 

2603 043402 101002 BHI 255% ;BR IF YES 

2604 043404 000137 042352 JP 95% 300 ANOTHER TEST PATTERN 

2805 043410 255%: 

2806 043410 ENDSUB s///4/4411////74 END SUBTEST ////////7// 
043410 L10061: 

asoT 043410 104403 TRAP CsSESUB 

2608 043412 005737 002222 TST FATFLG sANY FATAL ERRORS ? 

28609 043416 001402 BEQ 260% sBRANCH IF NOT 

2810 043420 004737 017202 JSR PC ,CKDROP sTRY TO OROP THE UNIT 

2811 043424 2608: 

2812 

28613 

2814 

a .SBTTL TEST 6: SUBTEST 4: FIFO Verify ILW Status 

2817 yee 

2818 ; TEST 6: SUBTEST 4: 

2819 ’ 

oo s SUBTEST DESCRIPTION: 

$ 
2822 : This subtest verifies that reading the FIFO when ‘t is 
2823 $ empty ceuses the Last Word (ILW) status to assert. 
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TSVS - HARDWARE TESTS 
TEST 6: SUBTEST 4: FIFO VERIFY ILW STATUS 


& 


2641 043426 004737 015774 


2847 043452 012704 050160 


TEST STEPS: 
BEGIN 


Write to TSSR to soft initialize 


SEQ 0163 


ge Write Subsystem READ A with byte count equal to 1 
a Suey TATUS 


: Ly etem READ 
TF Input 7 NOT#1 


If Dete In wniee NOT©O 


An Print Error 
Then Print Error 
Then Print Error 


If Lest Word (ILW) NOT*1 Then Print Error 


END 
BGNSUB 


VAAAAAAAAAALA om SUBTEST /////////7/ 
6.4: 
TRAP C$6SuUB8 


Write to TSSR register to soft initialize the controller 


JSR PC SOF INIT 

BCS 10% 

MOV RO,R1 

ERRDF ERRNO, SFIERR,SFIMSG 


sWRITE TO TSSR TO + hy INITIALIZE 
NIT OKAY 
{DEVICE FATAL OURING INIT 
TRAP CSEROF 
-WORD 625 
-WORD SFIERR 
-WORD SFIMSG 


84 3 Do e WRITE CHARACTERISTICS to setup e message bu 
2846 043446 005037 002222 10$: CLR FATF 


LG 
MOV @T17PACKET ,R4 


2648 043456 004737 010662 JSR PC,,WRTCHR 
2849 043462 FORCERROR 42% 
2850 043476 103407 BCS 50% 
2651 043500 010001 MOV RO,R1 
2652 043502 NEXT . ERRNO 
2853 043502 42%: ERROF ERRNO,T17SSR,PKTSSR 
043502 104455 
043504 001162 
043506 046605 
043510 012046 
2634 043512 005237 002222 INC FATFLG 
2655 043516 50$: CKLOOP 
043516 104406 
2856 
2657 ; 
2658 043520 012700 100001 MOV RO 
004737 JSR PC, TL 7RF IF 
2660 043530 012704 050330 MOV Ti7PK2, 
2661 043534 010465 MOV R4, TSOBCRS) 
2862 043540 004737 016336 JSR »CHKTS 
2863 043544 F es 
043560 103407 BCS 150% 
2665 043562 010001 MOV RO,R1 
2866 043564 NEXT .ERRNC 
2867 043564 142%: ERROF ERRNO,1T176SSR,PKTSSR 
043564 104455 
043566 001163 


;CLEAR FATAL ERROR F LAG 

sGET THE ADDRESS OF COMMAND PACKET 

s00 WRITE CHARACTERISTICS COMMAND 
s@GDFORCE ERROR IF FORCER=1 

;BR IF CARRY SET (GOOD RETURN) 

sSAVE CONTENTS OF TSSR 


sDEVICE FATAL SSR FAILED TO SET 
TRAP 


CSEROF 
-WORD 626 
-WORD T17SSR 
-WORD PKTSSR 
sSET FATAL ERROR FLAG 
sLOOP ON ERROR, IF FLAG SET 
TRAP CsCLPi 


Do sth” ates READ FIFO with Pr count equel to 1 


READ BYTE COUNT 


YSTEM COMMAND PACKET 
PACKET ADORESS TO EXECUTE 
sWAIT FOR SSR TO Set 
s;G@B0FORCE ERROR IF FORCER=1 
sBR IF CARRY SET (GOOD RETURN) 
sSAVE CONTENTS SF TSSR 


sDEVICE FATAL SSR FAILED TO SET 
TRAP — 


TSVS - HAROWARE T 
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043570 047062 
043572 012046 
2868 043574 005237 002222 
043600 
043600 104406 
2872 043602 004737 047744 
2873 043606 012704 050350 


000000 
2875 043616 004737 016536 


2880 043642 162$: 


ESTS MACRO M1113 14-JUN-84 15:55 SEQ 0164 
a T176SSR 
PKTSSR 
TNC FATFLG sSET FATAL ERROR FLAG 
CKLOOP sLOOP ON ERROR, IF FLAG ; 
CSCLP1 
Do a Write ne READ STATUS 
JSR PC,117 sSETUP PACKET FOR READ STATUS 
MOV @T17PK2 ,R4 sGET WRITE SUBSYSTEM COMMAND PACKET 
MOV R4, TSOBCRS) sSET THE PACKET — TO EXECUTE 
JSR PC ,.CHKTSSR sWAIT FOR SSR TO SE 
FORCERROR 162$ 3 @GDF ORCE ERROR IF FORCER=1 
BCS 170% ;6R IF CARRY SET <GOOD RETURN) 
MOV RO,R1 sSAVE CONTENTS OF TSSR 
NEXT . ERRNO 
ERROF ERRNO,T1735SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
TRAP CSEROF 
om 628 
— T173SSR 
PKTSSR 
INC FATFLG ;SET FATAL ERROR FLAG 
CKLOOP sLOOP ON ERROR, IF FLAG _. 
TRAP Cs$CLP1 
Set WORDS 0-7 of expd message buffer = to recv since not testing 
JSR PC, TL7SETEXP sSET WORDS 0-7 EXPD=RECV 
@TI7EXSTA,R1 ;GET EXPECTED READ STATUS 
MOV @T17BFSTA,R2 sGET RECV READ STATUS 
MOV CR2)+,CR1)+ sSET EXPD #6 = RECV TEMP 
MOV CR2),CR1) sSET EXPD WORD #9 = RECV TEMP 
BIS . Y,CR1) sSET EXP INPUT READY= 1 
BIC @S2.QUTRDY ,(R1) sSET EXP OUTPUT READY= 0 
BIC #52.0IM,(R1) 3SET EXP DATA IN MISS = O 
BIS #S2.ILwW,(R1) 3SET EXP LAST WORD CILW)=1 


2893 8 
2894 ; 
2895 3 
2896 043720 


2904 043754 172%: 


2905 043764 160$: 


2908 
2909 043770 005737 002222 


If Input Ready NOT#1 then Print Error 

If Output Re NOT=0 or Date in Miss NOT*0 Then Print Error 
If Lest Word (ILW) NOT=1 Then Print Error 

CLR RO sHIGH RECV ADORESS FOR CKMSG2 


MOV @T17BFR,R1 ;LOM RECV ADDRESS FOR CKMSG2 
MOV @T17EXP .R2 sEXPD ADDRESS 

MOV #20. ,R3 sNUMBER OF BYTES TO COMPARE 
JSR . sEXPD EQUAL RECV? 

FORCERROR 172% ,NOTSSR :aa0 

BCS 160% sBR IF YES 


NEXT . ERRNO 
ERRHRD ERRNO,T176CMP,MSGSTAT  ;REPORT ERROR 
TRAP — 


. WORD 
«WORD 1176CMP 


-.WORD MSGSTAT 
CKLOOP ;LOOP ON ERROR, IF FLAG SET 
TRAP CsCLPi 
ENDSUB s///L1 4111117 END SUBTEST S///////7/ 
L 10062: 


" TRAP C$ESUB 
TST FATFLG ;ANY FATAL ERRORS ? 
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TEST 6: SUBTEST 4: FIFO VERIFY ILW STATUS 
2910 043774 001402 BEG 260$ sBRANCH IF NOT 
2911 043776 004737 017202 JSR PC ,CKDROP ;TRY TO DROP THE UNIT 
2912 044002 2603: 
2913 
2914 
2915 -SBTTL TEST 6: SUBTEST 5: FIFO Verify Input Ready 
2916 
2917 pee 
2918 ; TEST 6: SUBTEST 5: 
2919 : 
2920 ; SUBTEST DESCRIPTION: 
2921 H 
2922 ; This subtest verifies that writing 64. bytes into the FIFO 
2923 : witiwut reading any out causes the Input Ready status to 
2924 ; negate. The Subtest then verfiies that writing a 65th byte 
2925 3 into the FIFO causes the Dete In Miss status to assert. 
2926 3 Next it is verified that the original 64 bytes can be read 
aH : out correctly and that the data has not been corrupted. 
3 
2929 ; TEST STEPS: 
2930 F 
2931 ; BEGIN 
2932 PF Write to TSSR to soft initielize 
2933 $ Do ea WRITE CHARACTERISTICS to setup ea message buffer 
2954 3 Do a Write Subsystem WRITE NPR to set tape direction out 
2935 ; Do a Write Subsystem WRITE FIFO 64. bytes incrementing pattern 
2936 ; Do a Write Subsystem READ STATUS 
2937 3 If Input Ready NOT=0 Then Print Error 
2938 3 If Output Ready NOT=1 Then Print Error 
2939 : If Dete In Mies NOT=0 Then Print Error 
2940 3 Do a Write Subsystem WRITE FIFO 1 byte for a total of 65. written 
2941 3 Do a Write Subsystem READ STATUS 
2942 3 If Input Ready NOT<0 Then Print Error 
2943 3 If Output Ready NOT=1 Then Print Error 
2944 3 If Date In Mies NOT=1 Then Print Error 
2945 3 Do Write stem READ FIFO 
2946 $ If Date read from FIFO NOT= to Date sent Then Print Error 
2947 ; Do a Write Subsystem READ STATUS 
2948 3 If Input Ready NOT=1 Then Print Error 
2949 ; If Output Ready NOT=0 Then Print Error 
2950 3 If Date In Miss NOT=1 Then Print Error 
2951 ; END 
2952 i-- 
2953 044002 BGNSUB 3//////////// BEGIN SUBTEST ////////// 
044002 T6.5: 
044002 104402 TRAP C$B8SUB 
2955 ; Write to TSSR register to soft initialize the controller 
2956 044004 5$: 
2957 044004 004737 015774 JSR PC,SOFINIT sWRITE TO TSSR TO SOFT INITIALIZE 
2958 044010 103405 Bcs 10% ;8R IF SOFT INIT OKAY 
2959 044012 010001 MOV RO,R1 ;SAVE CONTENTS OF TSSR 
2960 044014 ERROF ERRNO,SFIERR,SFIMSG ;DEVICE FATAL DURING INIT 
044014 104455 TRAP CsEROF 
044016 001165 -WORD 629 
044020 003652 -WORD SFIERR 
044022 012034 -WORD SFIMSG 





nT 


TEST 6: SUBTEST 5: FIFO VERIFY INPUT REA 


2962 044024 005037 002222 
2963 044030 012704 050160 
2964 044034 004737 010662 


044066 
2970 044070 005237 002222 


2974 044076 012700 000100 
050906 
2976 044106 012704 050330 
000000 
2978 044116 004737 016336 


12046 
2984 044152 005237 002222 
044156 104406 


2988 044160 012737 000100 002310 
046464 
2990 044172 012702 000100 
005000 


2993 044202 
044210 013700 002310 
046464 


050032 

044224 012704 050330 
3 000000 

044234 004737 016336 


TSVS - HARDWARE TESTS MACRO M1113 14- or -64 15:55 SEQ 0166 
: Do a = ee to setup e message buffer 
10%: CLR FLG sCLEAR FATAL ERROR FLAG 
MOV OT LTPACKET, Ra iGET THE ADDRESS OF COMMAND PACKET 
JSR PC ,WRTCHR 300 WRITE CHARACTERISTICS COMMAND 
FORCERROR 42% s@GO0FORCE ERROR IF FORCER=1 
Bcs 50% s6R IF CARRY SET (GOOD RETURN) 
~ RO,R1 sSAVE CONTENTS OF TSSR 
42%: E ERRNO, T17SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
TRAP CSERDF 
«WORD 630 
oe T17SSR 
PKTSSR 
INC FATFLG ;SET FATAL ERROR FLAG 
50$: CKLOOP ;LOOP ON ERROR, IF FLAG a 
TRAP CSCLP1 
; Do e Write Subsystem WRITE NPR to set tape direction 
100$: MOV @NP .OUT ,RO sSET TAPE DIRECTION our. 
JSR PC, T17SNPR ; SETUP T17PK2 FOR WRITE NPR 
MOV @T17PK2,R4 sGET WRITE SUBSYSTEM COMMAND PACKET 
MOV R4, TSOBCRS) sSET THE PACKET ADORESS TO EXECUTE 
JSR PC ,.CHKTSSR s;WAIT FOR SSR TO SET 
FORCERROR 102% s@@0FORCE ERROR IF FORCER=1 
BcS 105% ;BR IF CARRY SET (GOOD RETURN) 
RO,R1 sSAVE CONTENTS OF TSSR 
NEXT . ERRNO 
102$: ERROF ERRNO,T174SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
TRAP CSEROF 
-WORD 631 
-WORD 1174SSR 
-40ORD PKTSSR 
INC FATFLG ;SET FATAL ERROR FLAG 
105$: CKLOOP sLOOP ON ERROR, IF FLAG SET 
TRAP CsCLP1 
Do ae Write Subsystem WRITE FIFO 64. eytes incrementing pattern 
MOV 064. ,COUNT sWRITE 64 BYTES 
MOV @T17WUFDATA,R1 sEXPO WRITE FIFO DATA BUFFER 
MOV 064. ,R2 ; TEST PATTERN SIZE 
CLR RO s INCREMENT TEST PATTERN 
110%:  MOVB RO,(R1)+ sSTORE INCREMENT TEST BYTE 
INC RO iSET NEXT PATTERN 
DEC R2 3DONE? 
BGT 110% 368R IF NO 
MOV COUNT ,RO sFIFO BYTE COUNT 
MOV @T17WFDATA,R1 sFIFO rT DATA ADDRESS 
JSR PC, TL7WFIF sSETUP T17PK2 FOR WRITE FIFO 
MOV @T17PK2 ,R4 3GET WRITE SUBSYSTEM COMMAND PACKET 
MOV R4, TSOBCRS) sSET THE PACKET ADDRESS TO EXECUTE 
JSR PC,CHKTSSR s;WAIT FOR SSR TO SET 
FORCERROR 142$ s@BOFORCE ERROR IF FORCER=1 
BCS 150% s8R IF CARRY SET (GOOD RETURN) 
MOV RO,R1 s;SAVE CONTENTS OF TSSR 
NEXT. ERRNO 
142%: ERRDF ERRNO,T175SSR,PKTSSR sDEVICE FATAL SSR rane SET 


CSEROF 


Eis oct 


MACRO M1113 14- a -64 15:55 


TSVS - HARDWARE TESTS 
TEST 6: SUBTEST 5S: FIFO VERIFY INPUT RE 


002222 


047744 
050330 


000000 
016336 


150$: 


157$: 


162%: 


1708: 


INC 
CKLOOP 


FATFLG 


SEQ 0167 
-WORD 632 
-WORD 1175SSR 
-WORD PKTSSR 
sSET FATAL ERROR FLAG 
sLOOP ON ERROR, IF FLAG SET 
TRAP CSCLP1 


Then Print Error 
Then Print Error 


J .717 sSETUP PACKET FOR READ STATUS 
MOV @T17PK2,R4 ;GET WRITE SUBSYSTEM COMMAND PACKET 
MOV R4, TSOBCRS) sSET THE PACKET ADORESS TO EXECUTE 
JSR PC, CHKTSSR sWAIT FOR SSR TO SET 
FORCERROR 157% s8BDFORCE ERROR IF FORCER=1 
BcsS 160% s8R IF CARRY SET (GOOD RETURN) 
~ » RO,R1 sSAVE CONTENTS OF TSSR 
ERROF ERRNO,7T173SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
TRAP CSEROF 
. WORD 3 
-WORD T1173SSR 
-WORD PKTSSR 
INC FATFLG ;SET FATAL ERROR FLAG 
CKLOOP sLOOP ON ERROR, IF FLAG oy ene 
1 
Set WORDS 0-7 of e message buffer = to recv since tA, Sestdian 
JSR PC, TITSETEXP ;SET WORDS 0-7 EXPD=RECV 
MOV @TI7EXSTA, R1 ;GET EXPECTED READ STATUS 
MOV @T17BFSTA,R2 sGET RECV READ STATUS 
MOV CR2)+¢,(R1)+ sSET EXPD WORD #6 = RECV TEMP 
MOV CR2),CR1 sSET EXPD WORD #9 = RECV TEMP 
BIC . INRDY ,.(R1) sSET EXP INPUT READY= 0 
BIS #52 ..OUTRDY,(R1) sSET EXP OUTPUT READY= 1 
BIC #S2.0IM,(R1) 3SET EXP DATA IN MISS = 0 
CLR RO sHIGH RECV ADORESS FOR CKMSG2 
MOV @T17BFR,R1 sLOW RECV ADDRESS FOR CKMSG2 
MOV @T17EXP ,R2 sEXPD ADDRESS 
MOV #20. ,R3 sNUMBER OF BYTES TO COMPARE 
JSR PC ,CKMSG2 sEXPD EQUAL RECV? 
FORCERROR 162% ,NOTSSR ; 280 
BCS 170% sBR IF YES 
NEXT . ERRNO 
ERRHRD SRRNO,T175CMP,MSGSTAT ;REPORT ERROR 
TRAP CSERHRD 
-WORD 634 
-WORD T173CMP 
.WORD MSGSTAT 
CKLOOP s;LOOP ON ERROR, IF FLAG SET 
TRAP CsCLP1 


@T17WFDATA,R1 
PC, TL7WFIF 


Do a ait Seeyotes WRITE FIFO 1 byte for a total of 65. written 


sFIFO BYTE 
sFIFO WRITE BATA 
sSETUP T17PK2 FOR WRITE FIFO 


MACRO M1113 14-JUN-84 15:55 


TSVS - HARDWARE TESTS 
TEST 6: SUBTEST 5: FIFO VERIFY INPUT READY 


050330 
000000 
016336 


002222 


047744 
050330 


000000 
016336 





1728: 


180%: 


187$: 


192%: 


M13. Ss meine La 


SEQ 0168 


MOV @T17PK2,R4 sGET WRITE SUBSYSTEM COMMAND PACKET 
MOV R4, TSOBCRS) sSET THE PACKET ADDRESS TO EXECUTE 
JSR PC ,.CHKTSSR sWAIT FOR SSR TO SET 
FORCERROR 172$ s@GDFORCE ERROR IF FORCER=1 
BCS 180% s6R IF CARRY SET (GOOD RETURN) 
aeyT P RO,R1 sSAVE CONTENTS OF TSSR 
ERRDF ERRNO,T17S5SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
TRAP CSEROF 
. WORD 35 
ae T175SSR 
PKTSSR 
INC FATFLG ;SET FATAL ERROR F 
CKLOOP sLOOP ON ERROR, IF FLAG a ees 
LP1 


Do e Write Subsystem READ STATUS 

edy NOT=0~ Then Print Error 
Then Print Error 
Then Print Error 


JSR PC, T17SRD sSETUP PACKET FOR READ STATUS 

MOV @T17PK2,R4 sGET WRITE SUBSYSTEM COMMAND PACKET 

MOV R4, TSOBCRS) sSET THE PACKET — TO EXECUTE 

JSR »CHKTSSR ;WAIT FOR SSR TO SE 

F 187% 1 @BDF ORCE SERROR IF FORCER=1 

BCS 190% ;BR IF CARRY SET (GOOD RETURN) 

eee . RO,R1 sSAVE CONTENTS OF TSSR 

ERROF ERRNO,1173SSR,PKTSSR s;DEVICE FATAL SSR FAILED TO SET 
TRAP CSERDF 
-WORD 636 
-WORD 1173SSR 
-WORD PKTSSR 

INC FATFLG sSET FATAL ERROR FLAG 

CKLOOP sLOOP ON ERROR, IF FLAG SET 
TRAP CsCLP1 


Set WORDS 0-7 of one message buffer = to recv since not testing 
JSR PC, TI 7SETEX ;SET WORDS 0-7 EXPD=RECV 
OTI7EXSTA, R1 ;GET EXPECTED READ STATUS 


MOV @T17BFSTA,R2 sGET RECV READ STATUS 

MOV (R2)+¢,CR1)+ sSET EXPO WORD #8 = RECV TEMP 
MOV (R2),(R1) sSET EXPO WORD 09 = RECV TEMP 
BIC @S2.INRDOY,(R1) sSET EXP INPUT READY= 0 

BIS @S2.OUTROY,(R1) sSET EXP OUTPUT READY= 1 

BIS #S2.0IM,(R1) sSET EXP DATA IN MISS = 1 
CLR RO sHIGH RECV ADDRESS FOR CKMSG2 
MOV OT17BFR,R1 sLOW RECV ADDRESS FOR CKMSG2 
MOV @T17EXP ,R2 sEXPD ADDRESS 

MOV #20. ,R3 sNUMBER OF BYTES TO COMPARE 
JSR sEXPD EQUAL RECV? 

FORCERROR 192$,NOTSSR ;880 

BCS 200% :8R IF YES 

NEXT .E 


RRNO 
ERRHRD ERRNO, T1735CMP,MSGSTAT 


sREPORT ERROR 


TSVS - HARDWARE TESTS 
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3131 04 
3132 
3133 
3134 


114 
oasii6 
045120 


012350 


103406 


047452 
012170 
104406 


MACRO M1113 14- ae, -84 15:55 SEQ 0169 
-WORD MSGSTAT 
200$: CKLOOP ;LOOP ON ERROR, IF FLAG SET 
TRAP CS$CLP1 
: Do Write Subsystem READ FIFO 
002310 MOV COUNT ,RO ;SET READ BYTE COUNT 
050066 JSR PC, TLIAF IF ;SETUP T17PK2 FOR READ FIFO 
050330 MOV eTi7PK2, RG ;GET WRITE SUBSYSTEM COMMAND PACKET 
MOV R4, TSDB(RS) ;SET THE PACKET ADORESS TO EXECUTE 
016336 JSR PC, CHKTSSR ;WAIT ‘age SSR TO SET 
FORCERROR 212% ORCE ERROR IF FORCER=i 
BCS 220% ;BR IF CARR Y SET (GCOD RETUR!’) 
MOV RO,R1 ; SAVE CONTENTS OF TSSR 
NEXT. ERRNO 
2128: ERROF ERRNO,T176SSR,PKTSSR ;sDEVICE FATAL SSR FAILED TO SET 
TRAP CSEROF 
-WORD 638 
-WORD 1176SSR 
.WORD PKTSSR 
002222 INC FATFLG ;SET FATAL ERROR FLAG 
220$: CKLOOP ;LOOP ON ERROR, IF FLAG SET 
TRAP CSCLP1 
8 of Date read from FIFO NOT= to Data sent Then Print Error 
CLR RO ;HIGH RECV ADORESS FOR CKMSG2 
046464 MOV @T17WFDATA,R2 ;GET EXPECTED ADDRESS FOR CKMSG2 
050222 MOV @T17BFSTA,R1 ;GET RECEIVED ADDRESS FOR CKMSG2 
002310 MOV COUNT ,R3 s;NUMBER OF BYTES TO COMPARE 
011500 JSR PC ,CKMSG2 ;EXPD EQUAL RECV? 
FORCERROR 232$,NOTSSR ;8a0 
BCS 240% ;BR IF YES 
NEXT .ERRNO 
002310 232%: MOV COUNT,R ;GET BYTE COUNT 
ERRHRD ERRNO, TITSCHP, FIFEXP ;REPORT ERROR 
TRAP C$ERHRO 
-WORD 639 
-WORD 117SCMP 
. WORD FIFEXP 
240$: CKLOOP ;LOOP ON ERROR, IF FLAG SET 
TRAP C$CLP1 
: Do a Write Subsystem READ STATUS 
3 If Input Ready NOT=1 Then Print Error 
; If Output Ready NOT=O Then Print Error 
3 If Dete In Miss NOT=1 Then Print Error 
047744 JSR PC,T17SRO ;SETUP PACKET FOR READ STATUS 
050330 MOV @T17PK2,R4 3;GET WRITE SUBSYSTEM CC’MAND PACKET 
000000 MOV R4, TSOBCRS) ;SET THE PACKET ADDRESS TO EXECUTE 
016336 JSR PC, CHKTSSR ;WAIT FOR SSR TO SET 
FORCERROR 252$ ;@8DFORCE ERROR IF FORCER=1 
Bcs 260% ;BR IF CARRY SET (GOOD RETURN) 
MOV RO,R1 ;SAVE CONTENTS OF TSSR 
NEXT .ERRNO 
252%: ERRDF ERRNO,T173SSR,PKTSSR 


;DEVICE FATAL SSR FAILED TO SET 
TRAP CSEROF 
-WORD 640 
-WORD T1173SSR 
-WORD PKTSSR 


B14 


MACRO M1115 ~ e 64 15:55 


TSVS - HARDWARE TESTS 

TEST 6: SUBTEST 5: FIFO VERIFY INPUT RE 
3135 045130 005237 002222 
3136 = 


3137 
3138 045136 004737 050126 
3139 045142 012701 046362 


3143 065156 052711 000020 

3144 065162 042711 0000460 

3145 065166 052711 000200 

3146 045172 105000 

3147 045174 012701 050202 

3148 045200 012702 046342 
000024 


3149 045206 

3150 065210 906737 011500 
3151 045214 
3152 


402 
3161 045250 004737 017202 
3 045254 


INC FATFLG 

260%:  CKLOOP 

: Set WURDS 0-7 of e 
JSR PC, TI7SETE 
mOv OTI7EXSTA,Ri 
"Ov OTL 7OFSTA,R2 
"Ov (R2)+, (R11) 
"Ov (R2),(R1) 
BIS . INRDY ,CR1) 
BIC @S2 .QUTRDY ,(R1) 
BIS @52.01M,(Ri) 
CLR RO 
"Ov OTL 7BFR Ri 
Ov OTL 7EXP .R2 
MOV 020. RS 
JSR ° 
FORCERROR 2726 ,MOTSSR 
ecs 2606 


NEXT . ERRNO 
2726: ERRMRD ERRNO, 1174CMP ,.MSGSTAT 


2603: CKLOOP 


SEG 0176 


sSET FATAL ERROR FLAG 
sLOOP ON ERROR, IF FLAG SET 
TRAP Cec. Pi 


message buffer + to recy since not testing 


sSET WORDS 0-7 EXPD-RECV 
sGET EXPECTED READ STATUS 
T RE ATus 


ADORE S 
sMUPBER OF BYTES TO COPPARE 
1€XPD Equa RECV? 


, 8 
eR IF YES 
sREPORT ERROR 
TRAP C8ERHRO 
-WORD 641 
. WORD 117408 
. WORD MSGSTAT 
;LO0P GN ERROR, IF FLAG SET 
TRAP CeULP1 
3444441444774 7 ERD SIBTEST 4/4/774//7/77 
10063: 
Csesus 


sANY FATAL ERRORS ? 
sBRANCH IF NOT 
;TRY TO OROP THE UNIT 


-SBTTL TEST 6: SUBTEST 6: FIFO Verify Reset FIFO Test 


see 
s TEST 6: SUBTEST 6 
SUBTEST DESCRIPTION: 


are at t= 


stete. 


Thie metest verifies thet the Reset FIFO function withir 
the Write Miecelleneous Centro] 1 function initializes 
the FIFO te correct intiel stetus. The following steps 


. Reset an elready initialized FIFO end check for 
proper stetuse. 
2. Seite © varying mater of tytes 63-65. ) into the 


FIFO end verify thet efter eech block of bytes is 
written the FIFO cen be be reset to it's initiel 
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T - MARDWARE TEST Millis § 14- - 15:55 ? 
TSVS - WAR ES Piro VERIFY CSET FIFO Test eo 

3164 + TEST STEPS: 

3165 3 

3166 + BEGIN 

3167 3 Write te TSSR te soft initielize 

3166 ’ WRITE CHARACTERISTICS to setup e buffer 

31869 ’ Do eo Write Sveyetes Write Miec to Reset FIFO 

3190 ’ Do e@ Write Subsystem READ STATUS 

3191 : I? ell Tepe Stetue 2 (ICER, IFMK.IHER) flip-flep 

3192 ’ sigrele NOT*0 Then Print Error 

os ’ Do eo Write Subeyetes WRITE NPR to set tape direction out 

31 3 

3195 ; REPEAT FOR BYTE COUNT 1 TO 65. 

31% 3 BEGIN 

3197 ; Do e Write Knmeysten oo FIFO with the current byte count 

3198 3 Do e Write Subseystes Write Miec to Reset FIFO 

3199 $ Do oe Write Subsystem READ STAT 

3200 3 If ell Tepe Stetue 2 (ICER, IFMK,IHER) flip-flop 

3201 8 sigrels NOT*O Then Print Error 

$202 F 

3203 _ 

3204 045254 BGNSLB 34/444/11/17//44 BEGIN SKIBTEST S/4////7/747/ 
045254 76.6: 

ones 045254 104402 Cs6sus 

3206 F Write to TSSR register to soft initielize the controller 

3207 045256 Ss: 

3208 045256 004737 015774 JSR PC. SOF INIT sWRITE TO TSSR TO SOFT INITIALIZE 

3209 045262 103405 6cs 108 36R IF SOFT INIT OKAY 

3210 045264 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 

3211 045266 ERROF ERRNO, SFIERR,SFIMSG sDEVICE FATA OURING INIT 
04 104455 TRAP CSEROF 
045270 001201 -WORD 641 
045272 003652 .WORD SFIERR 
045274 012034 .WORD SFIMSG 

; Do e — Dy tiene: to setup e asesege buffer 

3213 045276 005037 002222 10%: CLR sCLEAR FATAL ERROR F 

3214 045302 012704 050160 MOV O11 7PACKET ,RA sGET THE ADORESS OF COnwen PACKET 

3215 045306 004737 010662 JSR PC ,.URT :00 WRITE CHARACTERISTICS COPPIAND 

3216 045312 FORCERROR ae4 SSDFORCE ERROR IF FORCER=-1 

3217 045326 103407 Bcs 50s 36R IF CARRY SET (GOOD RETURN) 

3216 045330 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 

3219 045332 NEXT. 
045332 42%: ERROF ERRNO, T17SSR ,PKTSSR sDEVICE FATAL SSR FAILED TO SET 

5332 104455 TRAP CSEROF 

045334 001202 .WORD 642 
045336 046605 .WORD T17SSR 
045340 012046 .WORD PKTSSR 

3221 045342 005237 002222 INC FATFLG sSET FATAL ERROR FLAG 

3222 045346 50%: CKLOOP sLOOP ON ERROR, IF FLAG oer 
045346 104406 CSCLPl1 

3223 F Do e Write Write Miec to Reset FIFO 

3224 045350 004737 047764 JSR PC.T1 IF sSETUP PKT FOR WRITE MISC RESET FIFO 

3225 045354 012704 050330 Mov OT17PK2 ,.R4 oo WRITE SUBSYSTEM COMMAND PACKET 
045 010465 000000 MOV R4, TSOBCRS) sSET THE PACKET ADORESS TO EXECUTE 

3227 045364 737 016336 JSR PC .CHKTSSR sWAIT FOR SSR TO SET 

3228 045370 62% s@GD0FORCE ERROR IF FORCER=1 
04 103407 Bcs 708 s6R IF CARRY SET (GOOD RETURN) 


D14 


TSVS - HARDWARE TESTS MACRO M1113 14-JUN-64 15:55 SEQ O172 
TEST 6: SUBTEST 6: FIFO VERIFY RESET FIFO TEST 
3230 045406 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 
3231 045410 NEXT . ERRNO 
3232 045410 62%: ERRDOF  ERRNO,1T172SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
045410 106455 TRAP CSERDF 
045412 001203 -WORD 643 
045414 046642 «WORD 1172SSR 
045416 012046 PKTSSR | 
3233 045420 005237 002222 INC FATFLG sSET FATAL ERROR FLAG 
3234 045424 708: CKLOOP sLOOP ON ERROR, IF FLAG SET 
9255 045424 104406 TRAP CSCLPi1 
3236 $ Do e Write Subsystem READ STAT i 
3237 : If ell Tepe Stetus 2 (ICER, Ife, IHMER) flip-flop 
3238 3 sigrele NOT*O Then Print Error 
3239 045426 004737 047744 PC.T17SRO sSETUP PACKET FOR READ STATUS | 
3240 045432 012704 050330 MOV @T17PK2 ,R4 sGET WRITE SUBSYSTEM COMMAND PACKE 
3241 045436 010465 000000 MOV R4, TSOBCRS) sSET THE PACKET ADORESS TO EXECUTE | 
3242 045442 004737 016336 JSR PC .CHKTSSR SWAIT FOR SSR TO SET 
3243 045446 FORCE 77% s@GDFORCE ERROR IF FORCER=i | 
3244 045462 103407 ecs 603 sBR IF CARRY SET “ee RETURN) | 
3245 045464 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR | 
3246 045466 NEXT . ERRNO 
3247 045466 778: ERRCOF ERRNO,1T173SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
045466 104455 TRAP CSEROF 
045470 001204 -WORD 644 
045472 046706 -WORD 1173SSR 
045474 012046 PKTSSR 
3248 045476 005237 002222 INC FATFLG sSET FATAL ERROR FLAG 
3249 oeees . 608: CKLOOP ;LOOP ON ERROR, IF FLAG =. eonse 
3250 045504 004737 050126 JSR PC, TI 7SETEXP sSET WORDS 0-7 EXPD=RECV CnoT TESTING) 
3251 045510 012701 046362 MOV OTI7TEXSTA,R1 sGET EXPECTED — STATUS 
3252 045514 012702 050222 MOV @TL7BFSTA,R2 sGET RECV READ STATUS 
3253 011211 MOV CR2),(R1.) sSET EXPO WORD #6 = RECV TEMP 
3254 04 042711 BIC @$1.ICER,(R1) 3SET EXPD ICER <0 
3255 045526 042711 001000 BIC 051. IFMK,(R1) +SET EXPD IFMK =0 
3256 04 042711 000400 BIC #51. IHER,(R1) sSET EXPD IHER <0 
3257 0645536 016261 000002 000002 MOV 2(R2),2(R1) sSET EXPD WORD 69 = RECV (NOT TESTING) 
3258 04 CLR RO sHIGH RECV ADDRESS FOR CKMSG2 
3259 045546 012701 MOV OTL7BFR,R1 sLOW RECV ADORESS FOR CKMSG2 
| 3260 045552 012 O46 342 MOV OTL7EXP ,R2 sEXPD ADORESS 
3261 045556 012703 MOV #20. ,R3 sNUMBER OF BYTES TO COMPARE 
3262 045562 004737 011500 JSR ° sEXPD EQUAL RECV? 
3263 04 F 92¢ ,NOTSSR 1D 
3264 045576 103404 ecs 100% sR IF YES 
3265 045600 NEXT .ERRNO 
3266 045600 92%: ERRHRD ERRNO,T177CMP,MSGSTAT  ;REPORT ERROR 
045600 104456 TRAP CSERHRD 
045602 001205 -WORD 645 
045604 047634 -WORD 1177CMP 
045606 012350 -WORD MSGSTAT 
3267 045610 100%: CKLOOP sLOOP ON ERROR, IF FLAG SET 
045610 104406 TRAP CsCLP1 
3269 ; Do e Write Subsystem WRITE NPR to set t direction out 
3270 045612 012700 000100 MOV onP . »RO sSET T OIRECTION OUT 
3271 045616 004737 050006 JSR PC, T17SNPR }SETUP T17PK2 FOR WRITE NPR 





VS - HARDWARE TESTS MACRO M1113 14-JUN-64 15:55 SEQ 0173 | 
test 6: SUBTEST 6: FIFO VERIFY RESET FIFO TEST 
3272 045622 012704 0503530 “OV @T17PK2,R4 sGET WRITE SUBSYSTEM COMMAND PACKET 
3273 045626 010465 000000 MOV R4, TSOBCRS) sSET THE PACKET ADORESS TO EXECUTE 
3274 0456 004737 016336 JSR PC. CHKTSSR sWAIT FOR SSR TO SET 
3275 045636 F RROR 1128 s@@DFORCE ERROR IF FORCER=1 
3276 045652 103407 ecs 120% s6R IF CARRY SET (GOOD RETURN) 
3277 04 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 
3278 045656 NEXT.E 
3279 045656 112$: ERROF ERRNO,T174SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
045656 104455 TRAP CSEROF 
045660 001206 -WORD 646 
045662 046755 — 7174SSR 
| 045664 012046 PKTSSR 
32860 045666 005237 002222 INC FATFLG sSET FATAL ERROR FLAG 
3261 045672 1208: CKLNOP sLOOP ON ERROR, IF FLAG >. 
045672 104406 CSCLP1 
3263 ; Setup incrementing pettern in FIFO dete buffe 
3264 045674 012701 046362 MOV @T17EXSTA,R1 sEXPD WRITE FIFO DATA BUFFER 
3285 045700 012702 000100 MOV #64. ,R2 sTEST PATTERN SIZE 
3286 045704 CLR RO $ TEST PATTERN 
3267 045706 110021 130%: MOvVB RO,CR1)+ sSTORE INCREMENT TEST BYTE 
32868 045710 INC RO pM NEXT PATTERN 
3269 045712 DEC R2 ? 
ay 045714 003374 BGT 130% ;BR IF NO 
3292 ; REPEAT a BYTE COUNT 1 TO 65. 
3293 045716 012737 000001 002310 #1,COUNT sGET FIRST BYTE COUNT 
| 3294 3 oy e Write Subsystem WRITE FIFO with the current byte count 
| 3295 045724 150%: sREPEAT LOOP LABEL 
3296 045724 013700 002310 MOV COUNT .RO iFIFO BYTE COUNT 
| 3297 045730 012701 046362 MOV @T17EXSTA.R1 sFIFO WRITE DATA ADORESS 
3296 045734 004737 0500 JSR PC, TI7WFIF sSETUP T17PK2 FOR WRITE FIFO 
045740 012704 050330 MOV @T17PK2 ,R4 3GET WRITE SUBSYSTEM COMMAND PACKET 
3300 045744 010465 MOV R4, TSOBCRS) SET PACKET ADORESS TO EXECUTE 
3301 045750 004737 016336 JSR »CHKTSSR ;WAIT FOR SSR TO SET 
045754 F 152 s@G0FORCE ERROR IF FORCER=1 
| 3303 045770 103407 6cS 160% s;6R IF CARRY SET (GOOD RETURN) 
3304 045772 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 
3305 045774 NEXT . ERRNO 
3306 045774 1528: ERROF ERRNO,T175SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
045774 104455 TRAP CSERDF 
| 045776 001207 -WORD 647 
046000 047016 . WORD T175SSR 
046002 012046 .WORD PKTSSR 
| 3307 046004 005237 002222 INC FATFLG sSET FATAL ERROR FLAG 
3308 046010 160$: CKLOOP sLOOP ON ERROR, IF FLAG SET 
— 046010 104406 TRAP CSCLPi 
3310 5 Do ea Write Subsystem Write Misc to Reset FIFO 
3311 046012 004737 047764 JSR PC, TL7RSFIF sSETUP PKT FOR WRITE MISC RESET FIFO 
3312 046016 012704 050330 MOV @T17PK2 ,R4 3;GET WRITE SUBSYSTEM COMMAND PACKET 
3313 010465 000000 MOV R4, TSDOBCRS) sSET THE PACKET ADDRESS TO EXECUTE 
3314 046026 004737 016336 JSR PC, CHKTSSR sWAIT FOR SSR TO SET 
3315 046032 F 162% s@B0FORCE ERROR IF FORCER=1 
3316 046046 103407 6cs 170% s6R IF CARRY SET (GOOD RETURN) 
3317 046050 010001 MOV 0,R1 sSAVE CONTENTS OF TSSR 





3319 046052 


005237 
023727 
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002222 


047744 
050330 
000000 
016336 


002310 
002310 000101 


TSVS - HARDWARE TESTS 
vest 6: SUBTEST 6: FIFO VERIFY RESET FIFO TEST 
1623: 


170%: 


177$: 


192%: 


200%: 


250%: 


ERROF 


INC 
CKLOOP 


a ne ee - ae eee ee + ee — 


Fa 


ERRNO, T172SSR,PKTSSR 


FATFLG 


Do e Write Subsystem READ STATUS 
If ell Tepe Stetus 2 CICER, IFMK,IHER) flip-flop 


signels NOT=0 Then Print Error 
SRO 


JSR »T17 

MOV @T17PK2,R4 
MOV R4, TSOBCRS) 
JSR »CHKTSSR 
FORCE 177% 
BCS 180% 

MOV RO,R1 

NEXT . ERRNO 

ERRDF ERRNO,T175SSR,PKTSSR 
INC FATFLG 

CKLOOP 

JSR PC, TI7SETEXP 
MOV @TI7EXSTA,R1 
MOV @T1I7BFSTA,R2 
MOV (R2),CR1) 

BIC #S1.ICER,(R1) 
BIC 1. IFMK,CR1) 
BIC #S1. oCR1) 
MOV 2(R2),2CR1) 
CLR RO 

MOV @T17BFR,R1 
MOV OTI7EXP ,R2 
MOV #20. ,R3 

JSR PC, 

FORCERROR 192$ ,NOTSSR 
BcS 200% 

NEXT . ERRNO 

ERRHRD ERRNO,1177CMP ,MSGSTAT 
CKLOOP 

FORCEXIT 260% 
INC COUNT 

CMP COUNT , #65. 


SEQ 0174 

sDEVICE FATAL SSR FAILED TO SET 

TRAP CSERDF 

-WORD 648 

om T172SSR 

PKTSSR 

sSET FATAL ERROR FLAG 
sLOOP ON ERROR, IF FLAG SET 


TRAP CSCLPl 


sSETUP PACKET FOR READ STATUS 
sGET WRITE SUBSYSTEM COMMAND PACKET 
sSET THE PACKET ADORESS TO EXECUTE 
sWAIT FOR SSR TO SET 

IF FORCER=1 


sGB0FORCE ERROR 
s6R IF CARRY SET (GOOD RETURN) 
sSAVE CONTENTS OF TSSR 


sDEVICE FATAL SSR FAILED TO SET 
TRAP 


CSEROF 
-WORD 649 
—- T173SSR 
PKTSSR 
sSET FATAL ERROR FLAG 
sLOOP ON ERROR, IF FLAG ee 


CSCLP1 
sSET WORDS 0-7 EXPD-RECY (NOT TESTING) 


US 
* RECV TEMP 


#0 
sSET EXPD WORD 69 = RECV (NOT TESTING) 
sHIGH RECV ADDRESS FOR CKMSG2 
sLOW RECV ADORESS FOR CKMSG2 
sEXPD ADDRESS 
sNUMBER OF pi 5 TO COMPARE 
sEXPD EQUAL RECV? 


3:880 

38R IF YES 

;REPORT ERROR 
TRAP CSERHRD 
-WORD 650 
.WORD T177CMP 
.WORD MSGSTAT 

;LOOP ON ERROR, IF FLAG SET 
TRAP CSCLP1 


sGET NEXT BYTE COUNT 
sDONE ALL BYTES? 


MACRO Mil 


14-JUN-64 15:55 


VS - HARDWARE TESTS 
test 6: SUBTEST 6: FIFO VERIFY RESET FIFO TEST 


3408 046566 106 111 106 TST17I0: -ASCIZ ‘FIFO Exerciser’ 


046605 127 122 111 TI7SSR: .ASCIZ ‘WRITE CHARACTERISTICS Failed’ 
3410 046642 127 122 111 T172SSR:.ASCIZ ‘WRITE SUBSYSTEM (Write Misc) Failed’ 
3411 046706 127 122 111 T173SSR:.ASCIZ ‘WRITE SUBSYSTEM (Read Statue) Fai led’ 
3412 046753 127 122 111 T174SSR:.ASCIZ ‘WRITE SUBSYSTEM (Write 
3413 047016 127 122 111 T17S5SSR:.ASCIZ ‘WRITE SUBSYSTEM (Write 


r) Failed’ 
FIFO) Failed’ 


3361 046276 101002 BHI 2603 3;6R IF YES 
3362 046300 000137 045724 JMP 150% 300 ANOTHER BYTE COUNT 
3363 046304 2608 : ) 
3365 046304 ENDSUB s////1//111/7 END SUBTEST S///////7/7/ 
046304 L10064: 
046304 104403 TRAP CsESuB 
3367 046306 005737 002222 TST FATFLG sANY FATAL ERRORS ? 
0463 001402 BEQ 300% sBRANCH IF T 
3369 046314 004737 017202 JSR PC ,CKDROP sTRY TO DROP THE UNIT 
3370 046320 004737 016456 300$: JSR PC, TSTLOOP 300 ITERATIONS? 
371 103002 BCC 305% 38R IF NO 
3372 046326 000137 040364 JMP T17L00P sLOOP UNTIL ITERATIONS DONE 
dy 046332 305$: 
4 
3375 046332 EXIT TST s“/SA444444 EXIT TEST SASSSSS44/ 
046332 104432 TRAP =—s-« C$EXIT 
046334 002112 -WORD 110056-. 
3376 
| 3377 
3378 3¢ 
3379 ;LOCAL STORAGE FOR THIS TEST 
3380 8° 
j 3361 
| 33862 
3383 046336 T17MSK: sMASK OF UNTESTED BITS IM READ STATUS BYTES 
sUNTESTED BITS ARE SET TO 1 
j 3385 046336 377 BYTE t€<000> sBYTE O MASK 
3386 046337 037 BYTE tC<340> sBYTE 1 MASK (PARERR, IRESV2, IRESV1) 
| 3387 046340 360 BYTE tC<017> sBYTE 2 (TIMER A, TIMER 8. UNDEF INED<1: O>) 
| 3388 046341 000 BYTE sMAKE IT EVEN 
3390 046342 TL7EXP: 3sBEGIN a DATA BUFFER 
3391 046342 000000 -WORD O sMESSAGE TYPE 
3. 000000 -WORD O sDATA FIELD LENGTH 
3393 046346 000000 -WORD O 3 
3394 046350 000000 . WORD 0 3XSTO 
3395 046352 000000 -WORD O sxST1 
3396 046354 000000 -WORD O sxSTe2 
3397 046356 000000 WORD 0 3XST3 
| 3398 046360 000000 . WORD sXST4 (ALWAYS PRESENT FOR WRITE SUB. ) 
3399 046362 TI7EXSTA: .BLKB 66 sEXPECTED READ STATUS AND WRITE FIFO pata 
| te T17EXEND: sEND EXPECTED DATA BUFFER 
oeoe 046464 TI7WFDATA: .BLKB 66. sWRITE FIFO EXPECTED DATA BUFFER 
3404 s¢ 
3405 sLOCAL TEXT MESSAGES FOR TEST 
3406 t- 
3407 
| 
| 





H14 


VS - HARDWARE TESTS MACRO M1113 _14-JUN-84 15:55 SEO 0176 
Test 6: SUBTEST 6: FIFO VERIFY RESET FIFO TEST 


3414 047062 127 122 111 T176SSR:.ASCIZ ‘WRITE SUBSYSTEM (Reed FIFO) Fei led’ 

3415 047125 106 111 106 TI71CMP:.ASCIZ ‘FIFO Stetue in WORD 09 Incorrect efter Initielize’ 

3416 047207 122 145 141 T172CMP:.ASCIZ ‘Read FIFO Dete not equel to Write FIFO , Dete is in WORD 086’ 

3417 047303 105 111 106 T173CMP:.ASCIZ ‘FIFO Stetus (In WORD @9) Incorrect efter WRITE FIFO’ 

3416 047367 106 111 106 T174CMP:.ASCIZ ‘FIFO Stetus (In WORD #9) Incorrect efter READ FIFO’ 

3419 047452 122 145 141 T1I7SCMP:.ASCIZ ‘Reed FIFO Dete not equel to Write FIFO Date’ 

3420 047526 106 111 106 T176CMP:.ASCIZ ‘FIFO Status (In WORD #9) Incorrect efter READ FIFO from an Empty FIFO’ 
3421 047634 106 111 106 -neshnaatthets ~~ ‘FIFO Stetus (In WORD #9) Incorrect efter RESET FIFO’ 


3423 
3424 3° 
3425 3: CLEAR MESSAGE BUFFER 
3426 : 
3427 047720 T17CLRBUF : ’ 
3428 047720 SAVREG sSAVE R1-RS UNTIL NEXT RETURN 
3429 047724 012701 050202 MOV OT17BFR,R sGET MESSAGE BUFFER ADORESS 
3430 047730 012702 000120 MOV @717BEND - T178FR, R2 sSIZE OF MESSAGE BUFFER IN BYTES 
3431 047734 105021 10$: CLRB (R1)+ sCLEAR A BYTE 
3432 047736 005302 DEC Re 8 
3433 047740 003375 BGT 10$ ;6R IF NO 
3434 047742 000207 RTS PC sRETURN 
3435 
3436 3° 
nid ; SETUP T17PK2 PACKET FOR READ STATUS 
5= 
3439 047744 T17SRD: 
3440 047744 004737 047720 JSR PC, TI 7CLRBUF sCLEAR MESSAGE BUFFER 
3441 047750 012700 050340 MOV @T170T2,R0 sWRITE SUBSYSTEM DATA BUFFER 
3442 047754 112720 000005 MoOvB @Pw .ROSTATUS,(RO)+ sSTORE READ STATUS COMMAND IN 6SELO 
3443 047760 105010 CLRB CRO) ;CLEAR BSEL1 
3444 047762 000207 RTS PC ;RETURN 
3445 
3446 :¢ 
3447 3; SETUP T17PK2 PACKET FOR WRITE MISC RESET FIFO 
ZAGB he 
3449 047764 TL7RSFIF; 
3450 047764 004737 047720 JSR PC, T17CLRBUF sCLEAR MESSAGE BUFFER 
3451 047770 012700 050340 MOV #T170T2,RO sWRITE SUSSYSTEM DATA BUFFER 
3452 047774 112720 000010 MOVB OPW. WMISC ,CRO)+ sSTORE WRITE MISCELLANEOUS IN BSELO 
3453 050000 112710 900030 MOVB OMS .RSFIFIMS.RSTAP,.CRO) ;STORE BSEL1 CLEAR FIFO CODES 
3454 050004 000207 RTS PC sRETURN 
3455 
3456 3° 
ids : SETUP T17PK2 PACKET FOR WRITE NPR 
$ 
3459 3; INPUT: 
a 3 RO CONTAINS BSEL1 NPR DATA 
3 
eek $ SETS NP.WRP SINCE IF O IT WRITES WRONG PARITY. 
ge 
3464 050006 T17SNPR: 
3465 050006 004737 047720 JSR PC, T17CLRBUF sCLEAR MESSAGE BUFFE 
3466 050012 01270). 050340 MOV #T170T2,R1 SWRITE SUBSYSTEM DATA BUFFER 
3467 050016 112721 000011 MOVB OPW. WNPR,CR1)+ sSTORE WRITE NPR IN BSELO 
3468 050022 052700 000020 BIS ONP .WRP ,RO 300N'T WRITE WRONG PARITY 
3469 050026 110011 MOVB RO,CR1) sSTORE NPR DATA IN BSEL1 


3470 050030 (00207 RTS PC sRETURN 


HARDWARE TESTS 


004737 
012702 
112722 
110022 


005022 
112122 
005300 
003375 
000207 


114 
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047720 


046342 
000122 


046342 
000010 


vS - 
test 6: SUBTEST 6: FIFO VERIFY RESET FIFO TEST 


3¢ 
; SETUP T17PK2 PACKET FOR WRITE FIFO 


108%: 


3¢ 
; CLEAR EXPECTED DATA MESSAGE BUFFER 


JSR PC, T17CLRBUF 
MOV #T170T2,R1 

MOVB OPU.RFIFO,CR1)+ 
MOVB a 


3 - 
T17CLEXP: 

MOV @T1L7EXP,R 

MOV OTL TEXEND- T17EXP ,RO 
10%: CLRB (R1)+ 

DEC RC 

BGT 10% 

RTS PC 


RO CONTAINS BYTE COUNT 

Ri CONTAINS DATA PATTERN BLOCK ADDRESS 

SAVREG sSAVE R1-RS UNTIL NEXT RETURN 
SR PC, T17CLRBUF sCLEAR MESSAGE BUFFER 

MOV @T170T2,Re sWRITE SUBSYSTEM DATA BUFFER 

MOVE OPW. WFIFO,(R2)+ sSTORE WRITE FIFO IN BSELO 

MOvVB RO,(CR2)+ sSTORE BYTE COUNT IN BSEL1 
CLR (R2)+ sCLEAR SEL2 (UNUSED) 

MOvB CR1)+,CR2)+ sSTORE DATA PATTERN BYTE 

DEC RO sDONE ALL BYTES? 

BGT 10% sB8R IF NO 

RTS PC sRETURN 

T17PK2 PACKET FOR READ FIFO 

RO CONTAINS SEL2 BYTE COUNT 


sCLEAR MESSAGE BUFFER 

sWRITE SUBSYSTEM DATA BUFFER 
s;STORE READ FIFO IN BSELO 
cy de COUNT IN BSEL1 

3 


;GET EXPD ADDRESS 
:GET EXPO SIZE 
;CLEAR A BYTE 

3 DONE ? 

;68R IF NO 
;RETURN 


3¢ 
sSet WORDS 0-7 of expd message buffer = to recv since not testing 


3 - 

T17SETEXP : 
MOV OT1L7EXP ,R2 
MOV OT17BFR,R3 
MOV #6. ,RO 

S$: MOV (R3)+,CR2)+ 
DEC RO 
BGT S$ 
RTS PC 


-*<,¢10>€177770 


3;GET EXPD 

;GET READ STATUS RECV BUFFER 
3SET WORDS 0-7 EXP=RECV 

;SET EXPD=RECV 

;DONE WORDS 0-7 WORDS? 

3;BR IF NO 

;RETURN 


SEQ 0177 


J14 
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TEST 6: SUBTEST 6: FIFO VERIFY RESET FIFO TEST 
3530 sWRITE CHARACTERISTICS COMMAND PACKET 
3531 3 
3532 050160 TL7PACKET: sCOMMAND PACKET FOR TEST 
3533 050160 100004 -WORD 100004 sWRITE CHARACTERISTICS COMMAND, WITH ACK | 
3534 050162 050170 .WORD TI7DATA sADORESS OF CHARACTERISTICS BLOCK 
3535 050164 000000 -WORD O 
3536 050166 000012 -WORD 10. sMINIMUM MESSAGE PACKET SIZE 
3537 
3538 050170 TI7DATA: sCHARACTERISTICS DATA BLOCK 
3539 050170 050202 .WORD T17BFR sADDRESS OF MESSAGE BUFFER 
3540 050172 000000 -WORD O | 
3541 050174 000024 -WORD 20. sLENGTH OF MESSAGE BUFFER 
3542 050176 000000 -WORD O sESS,ENB,EAI,ERI 
hast 000000 -WORD O sEXTENDED FEATURES UNIT NO. ETC. | 
3545 
64 sMESSAGE BUFFER FOR ALL TEST 6 COMMANDS 
3 
3548 050202 T17BFR: sBEGIN MESSAGE BUFFER 
3549 050202 000000 -WORD O sMESSAGE TYPE 
3550 050204 000000 -WORD O sDATA FIELD LENGTH 
3551 050206 000000 -WORD O sRBPCR 
3552 050210 000000 -WORD O 3XSTO 
3553 050212 000000 -WORD O sXST1 
3554 050214 000000 -WORD O 3xST2 
3555 050216 000000 -WORD O 3XST3 
3556 050220 000000 -WORD O :XST4 CALWAYS PRESENT FOR WRITE SUBSYSTEM 
3557 050222 TL7BFSTA: .BLKB 64. sREAD S.ATUS AND WRITE FIFO BUFFER 
ata 050322 ‘einensiete sEND OF MESSAGE BUFFER 
ay i WRITE SUBSYSTEM READ STATUS COMMAND PACKET 
$ 
3563 050330 .*¢<,+10>€177770 
3565 050330 T17PKe2: 
3566 050330 100006 -WORD P.WRTSUB!P.ACK sWRITE SUBSYSTEM WITH ACK 
3567 050332 050340 T170T2 sLOW ADDRESS OF DATA BLOCK 
3568 050334 000000 WORD O sHIGH ADDRESS OF DATA BLOCK 
ee 050336 000012 -WORD 10. ; MINIMUM MESSAGE PACKET SIZE 
3571 050340 T170Te: sDATA BLOCK 
3572 050340 000 -BYTE O sBSELO 
3573 050341 000 .BYTE O ;BSEL1 
3574 050342 000000 -WORD O :SEL2 
re 050344 -BLKB 66 ;WRITE FIFO DATA OUTPUT BUFFER 
3577 050446 ENDTST 
050446 L10056: 
_— 050446 104401 TRAP CSETST 
da .SBTTL TEST 7: STATIC TRANSPORT BUS INTERFACE TEST 
3¢ 
3581 ; TEST DESCRIPTION: 
3582 3 
3583 3 
3584 ; TEST STEPS: 
3585 ; ; 
3 


REPEAT FOR LOOPCNT 
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051156 
016510 
000012 


015774 


002222 
051640 
010662 


002222 


051662 
000200 


051506 
051710 
000000 
016336 


002216 


000012 


HARDWARE TESTS 
test 7: STATIC TRANSPORT BUS INTERFACE TEST 


—- «+ © + @f of oF oF oe oe 


T18LOOP : 


BEGIN 
Write to TSSR ister to soft initialize the controller 
Do WRITE CHARACTERISTICS to check for Extended Features Switch 
If Extended Features Hardwere Switch Clear then: 
Do Write Subsystem Write Miscelleneous to Set Extended Features. 
Do WRITE CHARACTERISTICS to select reserved unit 7 
Do a Write Subsystem READ STATUS 
oe any trensport interface signals are asserted then Print Error 


MOV @TST18I0,RO 
JSR PC, TSTSETUP 300 INITIAL TEST SE 
MOV #10. ,LOOPCNT sPERFORM 10 ITERATIONS 


Write to TSSR register to soft initialize the controller 


JSR PC, SOF INIT sWRITE TO TSSR TO SOFT INITIALIZE 
BCS 10% sBR IF SOFT INIT OKAY 


sASCII MESSAGE 10 “identi TES? 


SEG 0179 


MOV RO,R1 sSAVE CONTENTS OF TSSR 
ERROF ERRNO, SFIERR,SFIMSG ;DEVICE FATAL DURING INIT 
TRAP = 
. WORD 
. WORD TERR 
-WORD SFIMSG 
Do | eee to check for Extended Features Switch 
CLR ;CLEAR FATAL ERROR FLAG 
MOV STIOPACKET, Ra sGET THE ADORESS OF COMMAND PACKET 
JSR PC,WRTCHR ;D0 WRITE CHARACTERISTICS COMMAND 
FORCERROR 12% s8Q@D0FORCE ERROR IF FORCER=1 
8cs 15% 3;6R IF CARRY SET (GOOD RETURN) 
eee . Ri SAVE CONTENTS OF TSSR 
ERROF ERRNO,T18SSR,PKTSSR ;DEVICE FATAL SSR FAILED TO SET 
TRAP CSEROF 
-WORD 701 
— T18SSR 
PKTSSR 
INC FATFLG sSET FATAL ERROR FLAG 
CKLOOP sLOOP ON ERROR, IF FLAG =. ae 


If Extended Features Hardware Switch Clear then: 

Do Write ot a Write Miscellaneous to Set Extended Features. 
MOV OT18BFR,R1 sMESSAGE BUFFE 
i i .EXTF, xST2(R1) EXTENDED FEATURES SWITCH SET? 


é BR IF Y 
JSR es eee sSETUP PACKET FOR WRITE MISCELLANE 
MOV @Ti8PK2,R sGET WRITE SUBSYSTEM COMMAND PACKET 
MOV R4, TSpBCRS) sSET THE PACKET ADDRESS TO EXECUTE 


JSR PC,CHKTSSR sWAIT FOR SSR TO SET 
FORCERROR 22% s@8DFORCE ERROR IF FORCER=1 
BCS 30% sBR IF CARRY SET (GOOD RETURN? 


OuUS 


TSV HARDWARE TESTS 
test 7: STATIC TRANSPORT BUS INTERFACE TEST 


3638 050632 010001 
3639 050634 
3640 050634 228: 


002222 


| 

3653 050706 42$: 
| 

} 

| 3654 050716 005237 002222 

| 


051662 
3659 050730 013700 051654 
3660 Ka) 


051466 
051710 
000000 
016336 


3672 051002 62%: 


002222 
3674 051016 70%: 


3676 
3677 $ 


3678 
3679 051020 004737 


051530 


L1i4 
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MOV RO,R1 
RRNO 
ERRNO, T182SSR,PKTSSR 


sSAVE CONTENTS OF TSSR 


ERROF sDEVICE FATAL SSR FAILED TO SET 
TRAP CSEROF 
. WORD 02 
ne T162SSR 
PKTSSR 
INC FATFLG :SET FATAL ERROR FLAG 
CKLOOP sLOOP ON ERROR, IF FLAG =. 
CSCLP1 
Do —. an to select = 
CLR FLG sCLEAR FATAL “CRnOR FLAG 
MOV STLOPACKET, RS 3;GET ve ADORESS OF PACKET 
JSR PC ,WRTICHR ;00 = ain aiken ie COMMAND 
F ao% ORCE ERROR IF FORCER=1 
BcS 50% ;BR IF CARRY Y SET (GOOD RETURN) 
axe Rl sSAVE CONTENTS OF TSSR 
E ERRNO, T18SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
TRAP CSEROF 
-WORD 703 
ono T18SSR 
PKTSSR 


INC FATFLG 
CKLOOP 


Cleer buffer 
MOV oT iBBFR RL 


MOV TIBDATA+4,RO 


CLRB CR1)-+ 
DEC _. 
BGT 


MOV or ispxe oR4 


JSR ’ SR 

FORCE 

BCS 70% 

MOV RO,R1 

NEXT . ERRNO 

E ERRNO, T183SSR,PKTSSR 


INC FATFLG 
KLOOP 


;SET FATAL ERROR FLAG 
sLOOP ON ERROR, IF FLAG SET 
TRAP CsCLP1 


sGET MESSAGE BUFFER ADDRESS 
sSIZE OF MESSAGE BUFFER IN BYTES 
sCLEAR A BYTE 


3 DONE ? 
7BR IF NO 
sSETUP PACKET FOR READ STATUS 
;GET WRITE SUBSYSTEM COMMAND PACKET 
sSET THE PACKET ADDRESS TO EXECUTE 
sWAIT FOR SSR TO SET 

ORCE ERROR IF FORCER=1 


= 
sBR IF CARRY SET (GOOD RETURN) 
:SAVE CONTENTS OF TSSR 


sDEVICE FATAL SSR FAILED TO SET 
TRAP 


CSERDF 
-WORD 704 
-WORD 11863SSR 
-WORD PKTSSR 
sSET FATAL ERROR FLAG 
sLOOP ON ERROR, IF FLAG SET 
TRAP CsCLP1 


Set firet & words of expd message buffer = a recv since not testing 
bits in Read Status expd equal rcv 


t unused 
JSR PC, TIS8SETEXP 


sSET SOME EXPD TO RECV 





TSVS - HARDWARE 
TEST 7: STATIC 


36 
3692 051072 


TESTS 


M14 
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TRANSPORT BUS INTERFACE TEST 


: If any trensport interface signels ere asserted then Print Error 
CLR RO CKMSG2 


020 


MOV OT1L6BFR,R1 
MOV OT1BEXP ,R2 
MOV #10. ,R3 
JSR PC ,CKMSG2 
FORCERROR 82% ,NOTSSR 
BCcS 90% 
NEXT . ERRNO 
82$: ERRHRD ERRNO, TISCMP ,.MSGSTAT 


TST FATFLG 
60 


BCC 165% 
T16LO0P 
165$: 
EXIT TST 


3¢ 
sLOCAL STORAGE FOR THIS TEST 
a+ 


T18MSK: 

.BYTE tC<000> 

.BYTE t0<340> 

.BYTE tC<277> 

.BYTE O 
T18EXP; 

-.WORD O 

-WORD O 

-WORD O 

-WORD O 

-WORD O 

-WORD O 

-WORD O 

-WORD O 

-WORD O 

-WORD O 
T18xS: .BYTE 377,020 

-WORD O 


3° 
;LOCAL TEXT MESSAGES FOR TEST 
ge 


SEQ 0161 


sHIGH RECV ADDRESS FOR 

sLOW RECV ADDRESS FOR CKMSG2 
sEXPD ADDRESS 

sNUMBER OF WORDS TO COMPARE 
sEXPD EQUAL RECV? 


+880 

/BR IF YES 

sREPORT ERROR 
TRAP CsERHROD 
. WORD 705 
-WORD T18CMP 
-WORD MSGSTAT 

sLOOP ON ERROR, IF FLAG SET 
TRAP CsCLP1 


sANY FATAL ERRORS ? 
sBRANCH IF NOT 

sTRY TO DROP THE UNIT 

300 ate 

;6R IF NO 

3LOOP UNTIL ITERATIONS DONE 


TRAP CsExIT 
-WORD L10065-. 


MASK OF —- BITS IN READ STATUS BYTES 
iBYTE On 
;BYTE 1 
;BYTE 2 
sMAKE IT EVEN 


sEXPECTED DATA BUFFER 
sMESSAGE TYPE 
sDATA FIELD LENGTH 


3 
3XST4 (ALWAYS PRESENT FOR WRITE SUB) 
sREAD STATUS BYTE 1/0 
sREAD STATUS BYTE 2 


sREAD STATUS BYTE 0/1 EXPECTED BASE 
sREAD STATUS BYTE 2 EXPECTED BASE 
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TEST 7: STATIC TRANSPORT BUS INTERFACE TEST 
3730 
3731 051156 123 164 141 tara -ASCIZ ‘Static Transport Bus Interface’ 
3732 051215 127 122 111 T18SSR: .ASCIZ ‘wRITE CHARACTERISTICS Failed’ 
3733 051252 127 122 111 T182SSR:.ASCIZ ‘WRITE SUBSYSTEM (Write Misc) Failed’ 
3734 051316 127 122 111 T183SSR:.ASCIZ ‘WRITE SUBSYSTEM (Read Status) Failed’ 
3735 051363 124 162 141 T1i8CMP: —— ‘Transport Bus Interface Signals NOT Negated After Unit 7 Selected’ 
3736 . 
3737 
3738 i¢ 
3739 ; SETUP T18PK2 PACKET FOR READ STATUS 
3740 ‘= 
3741 051466 T18SRO: 
3742 051466 SAVREG sSAVE R1-RS UNTIL NEXT RETURN 
3743 051472 012700 051720 MOV #T180T2,RO0 sWRITE SUBSYSTEM DATA BUFFER 
3744 051476 112720 000005 MOVB OPW .RDSTATUS,(CRO)>+ sSTORE READ STATUS COMMAND IN BSELO 
3745 051502 105010 CLRB CRO) ;CLEAR BSELi 
3746 051504 000207 RTS PC s;RETURN 
3747 
3748 3+ 
dna ; SETUP T18PK2 PACKET FOR WRITE MISC. 
as 
3751 051506 TI8SMISC: 
3752 051506 SAVREG sSAVE R1-RS UNTIL NEXT RETURN 
3753 051512 012700 051720 MOV #T180T2,RO0 sWRITE SUBSYSTEM DATA BUFFER 
3754 051516 112720 000010 MOVB OPW.WMISC ,CRO)+ +STORE WRITE MISCELLANEOUS IN BSELO 
3755 051522 112710 000200 MOVB OMS .EXT, (RO) sSTORE INVERT EXTENDED FEATURES IN BSEL1 
3756 051526 000207 RTS PC sRETURN 
3757 
3758 
3759 Set first 8 words of expd wy buffer = to recy since not testing 
ores Set unused bits in Read Status expd equal rcvd 
3762 051530 T1SSETEXP: 
3763 051530 012702 051126 MOV @T16EXP ,R2 :GET EXPD 
3764 051534 012703 051662 MOV @T16BFR,RS sGET READ STATUS RECV BUFFER 
3765 051540 012700 000010 MOV 08. ,RO sSET FIRST 8 WORDS EXP=RECV 
3766 051544 012322 S$: MOV CR3)+,CR2)+ sSET EXPD=RECV 
3767 051546 005300 DEC RO sDONE FIRST 8 WORDS? 
3768 051550 003375 BGT S$ ;BR IF NO 
3769 051552 012701 051122 MOV @T16MSK ,R1 sGET UNUSED BIT MASK 
3770 051556 013712 051152 MOV T16XS,(R2) sSETUP BASE EXPECTED BYTE 1/0 
3771 051562 013762 051154 000002 MOV T16XS+2,2¢CR2) sSETUP BASE EXPECTED BYTE 2 
3772 051570 011300 CR3),RO :GET RECV BYTE 1 AND BYTE O 
3773 051572 041100 BIC CR1),RO sCLEAR ALL BUT 
3774 051574 040012 BIC RO, CR2 sCLEAR UNUSED IN EXP 
3775 051576 050012 BIS »CR2) sSET UNUSED EXPD=RECV FOR COMPARE 
3776 051600 016300 000002 MOV 2(R3),RO sGET RECV BYTE 2 
3777 051604 046100 000002 BIC 2(R1),RO ;CLEAR ALL BUT UNUSED 
3778 051610 040062 000002 BIC RO,2(R2) ;CLEAR UNUSED IN EXPD 
3779 051614 050062 000002 BIS 0,2CR2) ;SET UNUSED EXPD=RECV FOR COMPARE 
3780 1 000003 CLRB 3(R2) ;CLEAR EXPD BYTE 3 CUNUSED) 
3781 051624 105063 000003 CLRB 3(R3) ;CLEAR RECV BYTE 3 CUNUSED) 
zroe 051630 000207 RTS ;RETURN 
3785 051640 -*<,+#10>€177770 
3787 


3788 }WRITE CHARARTERISTICS COMMAND PACKET 





TSVS - HARDWARE TE 
TEST 7: STATIC 


STS MACRO M1115 14 
TRANSPORT BUS INTERFACE 
100004 
051650 


ee 
4 = 
~ f/ 


051710 


H 4B 
= 
$8 583 


ee 


: 
TIOPACKET 


T16BFR: 


T16PK2: 


T160T2: 


-BYTE 
-BYTE 


ENMDTST 


B15 


100004 
TIBDATA 


coooooocoocoe ~O8yes s°? 
D 


P .URTSLB!P . ACK 
T160T2 


SEQ 0163 


sCOMMAND PACKET FOR TEST 
sWRITE CHARACTERISTICS COMPIAND, WITH ACK 
sADORESS OF CHARACTERISTICS BLOCK 


sMESSAGE PACKET MINIMUM SIZE 
CHARACTERISTICS DATA BLOCK 
MESSAGE BUFFER 


sLENGTM OF MESSAGE BUFFER 


sESS.ENB EAI ERT 
sSELECT RESERVED UNIT 7 


sMESSAGE BUFFER 
sMESSAGE TYPE 
sO4TA FIELD LENGTH 
RBPCR 


axSTS 
sXST46 (ALWAYS PRESENT FOR WRITE SUBSYSTER 
TURNED 


sREMD STATUS BYTE 1/0 RE 


sREAD STATUS BYTE 2 
: 

sWRITE SUBSYSTEM READ STATUS COPPWHO PACKET 
' .*¢, 01026177770 


sWRITE SUBSYSTEM WITH ACK 
sLOW ADDRESS OF DATA BLOCK 
sMIG4 ADORESS OF DATA 6G. OCK 


sOUF FER EXTENT 


,;0ATA OLOCK 
sBSELO 
sO6SEL1 
sSEL2 

DATA 


L10065: 


-SBTTL TEST 6: TRANSPORT BUS INTERFACE LOOPBACK TEST 
TEST DESCRIPTION: 


This test verifies the controller's Traeneport Bus 
leepbeck logic. Note 

thet the Stetic Treneport test aust heve rum 

correctly for this test to provide aeeningful results. 


@rivers, receivers, end ei 


TEST STEPS: 


Csersr 


25 


man 
te ) 


SSSSSSSSSTS SSS SS SSSERERSESSSSSSSSSSERERERERS GERSRSREEES 
bt xt) Ss ase = UH SSaARAEUNK OOS IUEU = wim Soe ~ 


012700 060142 
004737 016510 
012737 000012 002216 


act tdopdack 


15:55 r : 
pm -94 EG O)6e 
: REPEAT FOR LOOPCNT 
$ BEGIN 
: Do Subtest 1 - Loopbecx Control signele test 
‘ Do Kwtest 2 - Loopbeck Read/Write sigrelis test 
: Do Subtest 5 - Leopbeck Write Strobe test 
s na natant 8 Scenes eet diame tae 
; 
F 

BGNTST 

Té:: 

“Ov @TST19I0,RO sASCI1 MESSAGE TO IDENTIFY TES’ 

JSR PC, TSTSETUP 3:00 INITIAL TEST SETWP 
nese #10. ,LOOPCNT sPERFORM 10 ITERATIONS 


-SBTTL. TEST 6: SUBTEST 1: LOOPBACK CONTROL SIGwu TEST 


gee 
s TEST 6: SUBTEST 1: 
; 
SUBTEST DESCRIPTION: 


This ewtest verifies the Transport < g -- loopmect 
peth cen trenemit end receive correct! 

control sigrele ere ell loopbeck sigeis other 

then the reed/write dete (IW<7:0> and IR<7:0>). 


TEST STEPS: 


The loopbeck signele IFAD, ITADO,ITADI ere the tape unit select 
lines. Since reserved unit 7 aust remein selected these sigrels 
are eet low. This further seens the sigqnrels they dr: ve 
CISPEED, vY,.IO@) ere only tested in the low stete. 


3 

3 

i 

i 

7 

‘ 

3 

: 

3 

a 

PF 

F 

i 

3 

3; BEGIN 

s Write to TSSR ister to soft sabe tel ios the controller 

F Oo WRITE TICS to check for Extended Feetures Switch 
3 I? Extended Feetures Nerdwere. Switch Cleer then: 

‘ 
: Sok tn aakanh tammaak anit aed aes Ge 
’ 
: 
’ 
’ 
3 
’ 
F 
F 
Fi 
F 
F 
‘ 
° 
2 
$ 


t . 
eo Write Supeyetes Write Miec to Reset 1 
® urite ye eg READ STATUS 
If ell T 5 2 CICER, IFMK,IHER) flip-flop 
sigqrele = MOT=0 Then Print Error 
~~ A te ALL TEST PATTERNS IN TSTBLK TABLE 
Do Write Subsystems Write Control to Drive loopbeck sigrels grow 1. 


Do Write tem Write Formet to Drive loopbeck signels grow 2. 
Do e@ Write stem READ STATUS 


De e Write WRITE WPR to set Sen On ane Senne 


D15 
MACRO Mi113 14-JUN-84 15:55 


TS SEQ 018% 
LOOPBACK CONTROL SIGNAL TEST i 


TSVS - HARDWARE TES 
TEST 6: SUBTEST 1: 


tae ’ If loopbeck dete NOT+ dete sent Then Print Error 

3907 $ Do e Write Subsystem Write Miec to Reset Tape Stetus * FLOPS 

3908 3 Do @ Write Subsystem READ STATUS 

3909 ; If ell Tepe Stetue 2 (ICER, IFMK,IHER) flip-flop 

3910 ’ sigrele NOT*O Tren Print Error 

poet : END 

:- 

3913 051746 BGNSUB 3//4//1/1///44/ BEGIN SUBTES! “44/4/4/4///// 
051746 76.1: 

- 051746 1044C2 TRAP Cs6SuUs 

14 

3915 3 Write to TSSR register to soft initialize the controller 

3916 051750 S$: 

3917 051750 004737 015774 JSR PC. SOF INIT sWRITE TO TSSR TO + ay INITIALIZE 

39186 051754 103405 ecs 108 36R IF SOFT INIT OKAY 

3919 051756 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 

3920 051760 ERRDOF ERRNO, SFIERR,SFIMSG iDEVICE FATAL OURING INIT 
051760 1046455 TRAPS CsEROF 
051762 001440 -WORD 600 
051764 003652 -WORD SFIERR 
051766 012034 -WORD SFIMSG 

3921 ; WRI =. a to check for Extended Feetures Switch 

3922 051770 005037 002222 108: CLR FLG sCLEAR FATAL ERROR FLAG 

3923 051774 012704 062270 MOV OTISPACKET ,RA sGET THE ADORESS OF COPIA PACKET 

3924 052000 004737 010662 JSR PC .URT 300 WRITE CHARACTERISTICS COMMAND 

3925 052004 F 128 s@G0DF ORCE ERROR IF FORCER=-1 

3926 052020 103407 ecs 15% :6R IF CARRY SET (GOOD RETURN) 

3927 052022 010001 MOV RO,R1 i SAVE CONTENTS OF TSSR 

3928 052024 NEXT. 

3929 052024 126: ERROF ERRNO, T19SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
052024 104455 TRAP CSEROF 

001441 -WORD 601 
052030 3 .WORD T19SSR 
052032 012046 .WORD PKTSSR 

3930 052034 005237 002222 INC FATFLG sSET FATAL ERROR FLAG 

3931 052040 158: CKLOOP sLOOP ON ERROR, IF FLAG =. 

052040 104406 CSCLPi 

3932 3 If Extended Feetures Herdwere Switch Cleer then: 

3933 F Do Write Subsystem Write Miscellaneous to Set Extended Features. 

3934 052042 012701 062312 MOV @T19BFR,R1 MES BUFFER ADORESS 

3935 052046 032761 000200 000012 BIT @X2..EXTF ,.XST2(R1) sEXTENDED FEATURES SWITCH SET? 

3936 052054 001 BNE 306 s0R IF YES 

3937 052056 004737 062142 JSR PC, TI9SEXT sSETUP PACKET FOR WRITE MISC INVERT 
052062 012704 062440 mov OT19PK2 ,.R4 IGET WRITE SUBSYSTEM COMMAND PACKET 

3939 052066 010465 000000 MOV R4, TSOB(RS) sSET THE PACKET ADORESS TO EXECUTE 

2940 052072 004737 016336 JSR PC. TSSR sWAIT FOR SSR TO SET 

3941 052076 FORCERROR 226 :@GDFORCE ERROR IF FORCER=-1 

3942 052112 103407 ecs 398 :6R IF CARRY SET (GOOD RETURN) 

3943 052114 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 

5944 052116 NEXT. 

3945 052116 22s: ERROF ERRNO, T192SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
052116 104455 TRAP CSEROF 
052120 001442 -WORD 802 
052122 060240 .WORD 1192SSR 
052 012046 .WORD PKTSSR 

3946 052126 005237 002222 INC FATFLG sSET FATAL ERROR FLAG 

3947 052132 30%: CKLOOP sLOOP ON ERROR, IF FLAG SET 








cae 
TSVS - WAROMARE TESTS MACRO MILLS 14-JUN-84 15:55 SEQ 0186 


TEST 8: SUBTEST 1: LOOPBACK CONTROL SIGNAL T 


052132 104406 TRAP CSCLPl 
: Do =, ee to select reserved unit 7 
3949 052134 005037 002222 CLR FLG sCLEAR FATAL ERROR FLAG 
3950 052140 012704 062270 MOV oT 1SPACKET RA sGET THE ADDRESS OF COPPertD > 
3951 052144 004737 010662 JSR PC ,WRTCHR :D0 WRITE CHARACTERISTICS COMMAND. 
3952 052150 F 42% ;@G0FORCE ERROR IF FORCER=1 
3953 052164 103407 ecs 508 s0R IF CARRY SET (GOOD RETURN) 
052166 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 
3955 052170 NEXT . ERRNO 
3956 052170 42%: ERRDF ERRNO,T19SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
052170 104455 TRAP CSEROF | 
052172 001443 -WORD 8603 | 
052174 060203 ae T19SSR 
052176 012046 PKTSSR 
3957 052200 005237 002222 INC FATFLG sSET FATAL ERROR FLAG 
3958 052204 50%: CKLOOP sLOOP ON ERROR, IF FLAG =. 
0S2 104406 CsCLPi 
3959 F Do e Write Subsystem WRITE NPR to set t direction on oa Loopbeck 
3960 052206 012700 000100 MOV NP . OUT ,RO sSET T OIRECTION OUT 
3961 052212 052700 000040 BIS @NP LOOP , RO ISET L LOOPBACK ENABLE 
3962 052216 004737 062002 JSR PC, TL9SSNPR sSETUP T19PK2 FOR WRITE NPR 
052222 012704 062440 MOV @T19PK2 ,R4 sGET ware SuBSYS 
3964 052226 010465 000000 R4, TSOBCRS) sSET THE P T ADORESS TO EXECUTE. 
3965 052232 004737 016336 JSR »CHKTSSR sWAIT FOR SSR TO SET 
3966 052236 FORCE 5 ERROR IF FORCER=1 
3967 052252 103407 BCS 70% :;8R IF CARRY SET (GOOD RETURN) 
052254 010001 MOV RO,R1 : SAVE CONTENTS OF TSSR 
3969 052256 NEXT . ERRNO 
3970 052256 62%: ERROF ERRNO,T194SSR,PKTSSR s;DEVICE FATAL SSR FAILED TO SET 
052256 104455 TRAP CSEROF 
052260 001444 -WORD 804 
052262 060351 -WORD 1194SSR 
052264 012046 PKTSSR 
3971 052266 005237 002222 INC FATFLG sSET FATAL ERROR FLAG 
3972 052272 70%: CKLOOP sLOOP ON ERROR, IF FLAG ae 
3973 sreties ghthaeng Do Writ t Write Control t 1 I ¥ Rs 
$ ite Subsystem Write rol to CLEAR etpbesh bigueha grew 
3974 : Do Write stem Write Format to CLEAR loopbeck sigqnels 2. 
3975 5 (the 1 signele heve to be cleared here > a to the flip-floos 
3976 ; thet ere set on e 1 to 0 transition (CIHER, IFMK,ICER)) 
3977 052274 005000 CLR RO sWRITE O'S 
3978 052276 042700 000200 BIC WC . IFAD ,RO sIFAD MUST ALWAYS =0 
042700 000100 BIC @WC .IOTAD,RO sITADO MUST ALWAYS =0 
39860 052306 042700 BIC @we .I1TAD,RO sITAD1 MUST ALWAYS -0 
3961 052312 004737 062102 JSR PC, TISWCTL sSETUP PACKET FOR WRITE CONTROL 
3962 052316 012704 MOV @T19PK2 ,R4 sGET WRITE SUBSYSTEM COMMAND PACKET 
3963 052322 010465 MOV R4, TSOBCRS) sSET THE PACKET ADORESS TO EXECUTE 
052 004737 016336 PC, CHKTSSR sWAIT FOR SSR TO SET 
3965 052332 r ERROR IF FORCER=1 
3966 052346 103407 Bcs 90% 36R IF CARRY SET (GOOD RETURN) 
3967 052350 010001 MOV RO,R1 i SAVE CONTENTS OF TSSR 
3968 052352 NEXT ' 
3963 C52352 82%: E ERRNO, T197SSR ,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
0523: 104455 TRAP CSEROF 
052354 001445 -WORD 605 
052356 3 .WORD T197SSR 
052360 012046 .WORD PKTSSR 





TSVS - HARDWARE TESTS MACRO M1113 14-JUN-64 15:55 SEQ 0187 
TEST 8: SUBTEST 1: LOOPBACK CONTROL SIGNAL TEST | 
3990 052362 005237 002222 INC FATFLG sSET FATAL ERROR FLAG 
3991 052366 90%: CKLOOP sLOOP ON ERROR, IF FLAG SET 
052366 104406 TRAP CSCLPi 
3992 052370 005000 CLA RO sSET FORMAT DRIVE DATAsO | 
3993 052372 004737 062122 JSR PC, TISWMT sSETUP PACKET FOR WRITE FORMAT 
3994 052376 012704 062440 MOV @T19PK2,R4 sGET WRITE SUGSYSTEM COMMAND PACKET 
3995 052402 010465 000000 MOV R4, TSDB(RS) sSET THE PACKET ADORESS TO EXECUTE 
3996 052406 004737 016336 JSR PC ,CHKTSSR sWAIT FOR SSR TO SET 
3997 052412 FORCERROR 102% s@GDFORCE ERROR IF FORCER=1 
3996 052426 103407 BcS 110% 36R IF CARRY SET (GOOD RETURN) 
3999 052430 010001 MOV RO,R1 ;SAVE CONTENTS OF TSSR 
4000 052432 NEXT. ERRNO 
4001 052432 102%:  ERRDF ERRNO,T198SSR,PKTSSR sDEVICE FATS SSR FAILED TO SET 
052432 104455 TRAP CtEROF 
052434 001446 -WORD 806 
052436 060572 — T1986SSR 
052440 012046 PKTSSR 
4002 052442 005237 002222 INC FATFLG 3SET FATAL ERROR FLAG 
4003 052446 110%: CKLOOP sLOOP ON ERROR, IF FLAG a 
052446 104406 CSCLPi 
4004 F Do ea Write peeretee Write Mise to Reset By Stetus F- FLOPS 
4005 052450 004737 061760 JSR » TLORSF IF sSETUP PKT FOR WRITE MISC Reset Tepe Stetus F-FLOPS 
4006 052454 012704 062440 MOV @T19PK2 ,.R4 sGET WRITE SUBSYSTEM COMMAND PACKET 
4007 052460 010465 000000 MOV R4, TSOB(RS) 3SET THE PACKET oanee TO EXECUTE 
4008 052464 004737 016336 JSR PC ,CHKTSSR sWAIT FOR SSR TO SE 
4009 052470 FORCERROR 122$ 3 @G0F ORCE sEAROR IF FORCER=1 
4010 052504 1063407 Bcs 130% 3sBR IF CARRY SET (GOOD RETURN) 
4011 052506 010001 MOV RO,R1 i SAVE CONTENTS OF TSSR 
4012 052510 NEXT . ERRNO 
4013 052510 122%:  ERRDF ERRNO, T192SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
052510 104455 TRAP CSEROF 
052512 001447 . WORD 7 
052514 060240 . WORD T192SSR 
052516 012046 . WORD PKTSSR 
4014 052520 005237 002222 INC FATFLG 3SET FATAL ERROR FLAG 
4015 052524 130%: CKLOOP sLOOP ON ERROR, IF FLAG ser 
052524 104406 TRAP CSCLP1 
4016 3 Do ea Write Subsystem READ STATUS 
4017 : If ell Tepe Statue 2 CICER, IFMK,IHER) flip-flop 
4018 ; sigrele NOT=0 Then Print Error 
4019 052526 004737 061740 JSR PC,T19SRO sSETUP PACKET FOR READ STATUS 
4020 052532 012704 062440 MOV @T19PK2,R4 ;GET WRITE SUBSYSTEM COMMAND PACKET 
4021 052536 010465 000000 MOV R4, TSDB(RS) sSET THE PACKET ADORESS TO EXECUTE 
4022 052542 004737 016336 JSR PC ,CHKTSSR sWAIT FOR SSR TO SET 
4023 052546 FORCERROR 132% s@BDFORCE ERROR IF FORCER=1 
4024 052562 103407 6cs 140% ;8R IF CARRY SET (GOOD RETURN) 
010001 MOV RO,R1 ;SAVE CONTENTS OF TSSR 
4026 052566 NEXT. ERRNO 
4027 052566 1328: ERROF ERRNO, T193SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
052566 104455 TRAP CSERDOF 
052570 001450 .WORD 806 
052572 060304 .WORD 1T193SSR 
052574 012046 . WORD PKTSSR 
4028 052576 005237 002222 INC FATFLG 3SET FATAL ERROR FLAG 
4029 05260 140%: CKLOOP sLOOP ON ERROR, IF FLAG SET 


TRAP CsCLPl 
4030 052604 004737 062200 JSR PC, TI9SETEXP sSET WORDS 0-7 EXPD=RECV (NOT TESTING) 





G15 


TSVS5 - HARDWARE yee MACRO M1113 14-JUN-64 15:55 SEQ 0188 
TEST 8: SUBTEST 1: LOOPBACK CONTROL SIGNAL TEST 
4031 052610 012701 060042 MOV @TISEXSTA,R1 sGET EXPECTED READ STATUS 
4032 052614 012702 062332 MOV @T1SBFSTA,R2 1GET RECV READ STATUS 
4033 052620 011211 MOV (R2),(R1) iSET EXPD WORD @6 = RECV TEMP 
4034 052622 042711 002000 BIC @S1.ICER,(R1) sSET EXPD ICER =0 
4035 052626 042711 001000 BIC @S1.IFMK,CR1) sSET EXPD IFMK <0 
4036 052632 042711 000400 BIC @S1.IHER,(R1) sSET EXPD IHER =0 
4037 052636 016261 000002 000002 MOV 2cR2), 2(Ri) sSET EXPD WORD @9 = RECV (NOT TESTING) 
4038 052644 005000 CLR RO sHIGH RECV ADDRESS FOR CKMSG2 
4039 052646 012701 062312 MOV OT19BFR,R1 sLOW RECV — FOR CKMSG2 
4040 052652 012702 060022 MOV OTLIEXP ,R2 sEXPD ADDRESS 
4041 052656 012703 000024 MOV 20. ,R3 sNUMBER OF BYTES TO COMPARE 
4042 052662 004737 011500 JSR PC ,CKMSG2 -_ EQUAL RECV? 
4043 052666 FORCERROR 152% ,NOTSZR 
4044 052676 103404 ecs 160$ 1BR IF YES 
4045 052700 NEXT. ERRNO 
4046 052700 152%: ERRHRD ERRNO,T197CMP,MSGLOOP ;REPORT ERROR 
052700 104456 TRAP CSERHRD 
052702 001451 -WORD 809 
052704 061245 WORD T197CMP 
052706 013064 -WORD MSGLOOP 
4047 052710 160%: CKLOOP sLOOP ON ERROR, IF FLAG SET 
052710 104406 TRAP CsCLPi 
4048 ; REPEAT FOR a TEST PATTERNS IN TSTBLK TABLE 
4049 052712 005037 057754 CLR T19PREV sINIT 1-0 TRANSITION FLAG 
4050 052716 012703 002752 MOV @TSTBLK RS sGET FIRST PATTERN ADORESS 
4051 052722 012300 200%: MOV CR3)+¢,RO sGET A TEST PATTERN 
4052 052724 010337 002316 MOV R3,TSTPTR sSAVE POINTER INTO TSTBLK 
4053 052730 042700 000200 BIC oul . IFAD RO sIFAD MUST ALWAYS =0 
4054 052734 042700 000100 BIC @uC . IOTAD,RO tITADO MUST ALWAYS =0 
4055 052740 042700 000040 BIC @uC .T1TAD,RO sITAD1 MUST ALWAYS =0 
= 052744 010037 002312 a ied Shag enone dee tanteel le ce . 
3 3 Ra S ive loopbeck signels group 1. 
4058 3880 CALL T19CNVT O SETUP WRITE CONTROL PATTERN 
4059 052750 013700 002312 MOV DATA,RO sGET TEST PATTERN 
4060 052754 004737 062224 JSR PC. TI9CNVT ; CONVERT PATTERN TO CONTROL ORIVE MASK 
4061 sRO CONTAINS WRITE CONTROL DATA HERE 
4062 052760 004737 062102 JSR PC. TISWCTL sSETUP PACKET FOR WRITE CON 
4063 052764 012704 062440 MOV OT19PK2 ,R4 3GET WRITE SUBSYSTEM COMMAND PACKET 
4064 052770 010465 000000 MOV R4, TSOBCRS) 3SET THE PACKET ADORESS TO EXECUTE 
4065 052774 004737 016336 JSR PC ,.CHKTSSR sWAIT FOR SSR TO SET 
4066 053000 FORCERROR 212% IF FORCER=1 
4067 053014 103407 Bcs 3 s8R IF CARRY SET (GOOD RETURN) 
16 010001 MOV RO,R1 SAVE CONTENTS OF TSSR 
4069 053020 NEXT .ERRNO 
4070 053020 212%: ERRDF jERRNO,T197SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
053020 104455 TRAP CSEROF 
053022 001452 -WORD 810 
053024 060523 .WORD 1197SSR 
053026 012046 .WORD PKTSSR 
4071 053030 005237 002222 INC FATFLG ;SET FATAL ERROR FLAG 
4072 053034 220%: CKLOOP sLOOP ON ERROR, IF FLAG SET 
4073 053034 104406 TRAP CsCLP1 
4074 $ Do Write ovetes Write Format to Drive loopbeck signals group 2. 
4075 3880 CALL TI9SCNVT TO SETUP WRITE CONTROL PATTERN 
4076 053036 013700 002312 MOV DATA,RO sGET TEST PATTERN 
4077 053042 004737 062224 JSR PC, TISCNVT sCONVERT PATTERN TO FORMAT DRIVE MASK 
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062122 
062440 


000000 
016336 


001000 


002000 


TSVS - HAROWARE TESTS 
TEST 8: SUBTEST 1: LOOPBACK CONTROL SIGNAL TEST 


2328: 


252%: 


275%: 


280%: 


JSR PC, TISWMT 
MOV @T19PK2 ,R4 
MOV R4, TSOBCRS) 
JSR PC ,.CHKTSSR 

F RROR 232% 
BCS 240% 

MOV RO,R1 

NEXT . ERRNO 


ERRDOF ERRNO, 7T1986SSR,PKTSSR 


SEQ 0189 


sWRITE FORMAT DATA RETURNED IN HIGH BYTE — 
sSETUP PACKET FOR WRITE FORMAT 
sGET WRITE SUBSYSTEM COMMAND PACKET 
sSET THE PACKET ADDRESS TO EXECUTE 
sWAIT FOR SSR TO SET 
IF FORCER=1 


s8GDF ORCE ERROR 
s6R IF CARRY SET (GOOD RETURN) 
sSAVE CONTENTS OF TSSR 


sDEVICE FATAL SSR FAILED TO SET 
TRAP 


CSEROF 
-WORD 611 
-WORD 1196SSR 
PKTSSR 
sSET FATAL ERROR FLAG 
sLOOP ON ERROR, IF FLAG SET 
TRAP CsCLP1 


sSETUP PACKET FOR READ STATUS 
sGET WRITE SUBSYSTEM COMMAND PACKET 
sSET THE PACKET ADDRESS TO EXECUTE 
sWAIT FOR SSR TO SET 

IF FORCER=1 


s@G0F ORCE ERROR 
sBR IF CARRY SET (GOOD RETURN) 
; SAVE CONTENTS OF TSSR 


sDEVICE FATAL SSR FAILED TO SET 
TRAP 


CSEROF 
-WORD 612 
-WORD 1193SSR 
-WORD PKTSSR 
sSET FATAL ERROR FLAG 
sLOOP ON ERROR, IF FLAG SET 
TRAP CsCLP1 


If loopbeck dete ae date sent Then Print Error 


INC FATFLG 
CKLOOP 

Do eae Write Subsystem READ STATUS 
JSR PC, T19SRD 
MOV @T19PK2 ,R4 
MOV R4, TSOBCRS) 
a PC, CHKTSSR 
ecs 260% 

MOV RO,R1 
NEXT . ERRNO 

ERROF ERRNO,T193SSR,PKTSSR 
INC FATFLG 
CKLOOP 

JSR PC, TISSETEXP 
MOV @TISEXSTA,R1 
MOV @T19BFSTA,R2 
MOV DATA,(R1) 
MOV V,RO 
MOV DATA,R3 

MOV #51. IHER,R4 
BIC R4,(R1) 

BIT R4,RO 

BEQ 275% 

BIT R4,R3 

BNE 275% 

BIS R4,(R1) 

MOV @S1.IFMK,R4 
BIC R4,(R1) 

BIT R4, 

BEQ 280% 

BIT R4,R3 

BNE 60% 

BIS R4,(R1) 

MOV #S1.ICER,R4 
BIC R4,(R1) 


sSET WORDS 0-7 EXPD=RECV (NOT TESTING) 
sGET EXPECTED READ STATUS 

sGET RECV READ STATUS 

sSET EXPD WORD #6 TO TEST DATA FIRST 
sGET PREVIOUS DATA PATTERN 

sGET CURRENT PATTERN 

3; SETUP IHER EXPECTED 
XPD IHER =0 


NO 
sSET EXPD IMER =1 
sSETUP IFMK EXPECTED 
sSET EXPO IFMK =0 


IF =1 
sSETUP ICER EXPECTED 
sSET EXPD ICER =0 


HARDWARE TESTS 


4130 053314 

4131 

4132 0533516 

4133 0533522 
324 


1 
4170 053522 
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2853: 


288%: 


290%: 


302%: 


322%: 





TSvS - 
TEST 8: SUBTEST 1: LOOPBACK CONTROL SIGNAL TEST 


BIT R4,RO 
BEQ 265% 
BIT R4,R3 
BNE 65% 
BIS R4,(R1) 
MOV CR1),RO 
If previous LIDENT=1 
MOV 1. IIDENT ,R4 
BIS R4,RO 
BIT R4, TISPREV 
BEQ 68% 
BIT R4,R3 
BEQ 288% 
BIC R4, 
BIS #S1.I2RES,RO 
BIS @S1.I1RES,RO 
BIC 1.PARERR ,RO 
3IT @S1.PARERR,(R2) 
BEQ 290% 
BIS @S1.PARERR,RO 
MOV RO,CR1 
MOV 2(R2),2CR1) 
CLR RO 
MOV @T196FR,R1 
MOV @T19EXP ,R2 
MOV 20. ,R3 
ra ° 

302% ,NOTSSR 
BCs 310% 


T .ERRNO 
ERRNRD ERRNO, T196CMP , MSGLOOP 


CKLOOP 

Do a Write 7icexers" Write 
JSR PC,.T 

MOV @T19PK2, Ra 

MOV R4, TSDBCRS) 

JSR ° TSSR 

F 322 

Bcs 330% 

MOV RO,R1 

NEXT. ERRNO 

ERRDF ERRNO,7T192SSR,PKTSSR 
INC FATFLG 

CKLOOP 

Do e Write Subsystem READ STATUS 
JSR PC,T19 

MOV @T19PK2 ,R4 


115. 


SEG 0190 


NO 
sSET EXPD ICER *1 
GET E 


r WORD 
1 and current A RS aie then EXPD= 0 else 1 


:II 
sASSUME EXPD-1 
sPREVIOUS TIDENT#1? 


;6R IF 
i1S CURRENT IIDENT=1? 
38R IF NO 

3SET EXPD-0 

sIRESV2 EXPD ALWAYS=1 
sIRESV1 EXPD ALWAYS=1 
s IGNORE PARERR 


sIS PARERR SET IN RECV? 

s6R IF NO 

sSET IN EXPD 

;SETUP FINAL EXPD IN WORD 06 

sSET EXPD WORD @9 = RECV (NOT TESTING) 
sHIGH RECV ADDRESS FOR CKMSG2 

3LOW RECV ADORESS FOR CKMSG2 

sEXPD ADORESS 

sNUMBER OF BYTES TO COMPARE 

sEXPD EQUAL RECV? 


; 880 
8R IF YES 


;REPORT ERROR 
TRAP CERRO 
WORD 8 


-WORD T196CMP 
-WORD MSGLOOP 

sLOOP ON ERROR, IF FLAG a 
CsCLP1 


Misc to Reset Tape Stetus F- FLOPS 


sSETUP PKT FOR WRITE MISC Reset STATUS 
sGET WRITE SUBSYSTEM COMMAND PACKET 
sSET THE PACKET — TO EXECUTE 
sWAIT FOR SSR TO SE 

3s B@DF ORCE ERROR IF FORCER=1 
s6R IF CARRY SET (GOOD RETURN) 
sSAVE CONTENTS OF TSSR 


sDEVICE FATAL SSR FAILED TO SET 
TRAP 


CsEROF 
-WORD 614 
-WORD 1192SSR 
.WORD PKTSSR 


sSET FATAL ERROR FLAG 
sLOOP ON ERROR, IF FLAG SET 
TRAP CsCLP1 


sSETUP PACKET FOR READ STATUS 
s;GET WRITE SUBSYSTEM COMMAND PACKET 


J15 
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TEST 8: SUBTEST 1: LOOPBACK CONTROL SIGNAL TEST 


sSET THE PACKET ADORESS TO EXECUTE 


4172 053532 010465 000000 MOV R4, TSDBCRS) 

4173 053536 004737 016336 JSR PC,CHKTSSR sWAIT FOR SSR TO SET 

4174 053542 FORCERROR 342$ r ORCE ERROR IF FORCER=1 

4175 053556 103407 BcS 350$ ;8R IF CARRY SET (GOOD RETURN) 

4176 053560 010001 MOV RO,R1 | SAVE CONTENTS OF TSSR 

4177 053562 NEXT .ERRNO 

4178 053562 342%: ERROF  ERRNO,T193SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
053 104455 TRAP CSEROF 
053564 001457 -WORD 6815 
053566 060304 -WORD 1193SSR 
053570 012046 PKTSSR 

4179 053572 005237 002222 INC FATFLG ;SET FATAL ERROR FLAG 

4180 053576 350$: CKLOOP ;LOOP ON ERROR, IF FLAG S 
053576 1 C$CLP1 

4181 053600 004737 062200 JSR PC, TI9SETEXP sSET WORDS 0-7 EXPO=RECY’ CNOT TESTING) 

4182 053604 012701 060042 MOV @TISEXSTA,R1 sGET EXPECTED READ STATUS 

4163 053610 012702 062332 MOV @T19BFSTA,R2 sGET RECV READ STATUS 

4184 053614 011211 MOV CR2),CR1) 3SET EXPD WORD #6 = RECV TEMP 

4185 053616 711 002000 BIC #$1.I1CER,(R1) :SET EXPD ICER =0 

4186 042711 001000 BIC @S1.IFMK,(R1) sSET EXPD IFMK =0 

4187 053626 042711 000400 BIC @S1.IHER,(R1) sSET EXPD IHER =0 

4188 053632 016261 000002 000002 MOV cee 2(R1) sSET EXPD WORD @9 = cone (NOT TESTING) 

4189 053640 CLR ;HIGH RECV ADDRESS FOR CKMSG2 

4190 012701 062312 MOV aT198FR, R1 sLOW RECV ADORESS FOR CKMSG2 

4191 053646 012702 060022 MOV OT19EXP .R2 sEXPD ADDRESS 

4192 053652 012703 000024 MOV #20. ,R3 sNUMBER OF BYTES TO COMPARE 

4193 053656 004737 011500 JSR PC, sEXPD EQUAL RECV? 

4194 053662 F 362% ,NOTSSR :880 

4195 053672 103404 6cs 370% iBR IF YES 

4196 053674 NEXT .ERRNO 

4197 053674 362%: ERRHRD ERRNO, T197CMP ,MSGSTAT ;REPORT ERROR 
053674 104456 TRAP CS$ERHRD 
053676 001460 .WORD 616 
053700 061243 -.WORD 1197CMP 
053702 012350 -WORD MSGSTAT 

4198 053704 370%: CKLOOP ;LOOP ON ERROR, IF FLAG SET 

ae 053704 104406 TRAP CSCLP1 

4200 053706 013737 002312 057754 MOV DATA, T19SPREV ;SETUP PREVIOUS DATA FOR EXPD CALC. 

4201 053714 013793 002316 MOV TSTPTR,R3 sRESTORE CURRENT TSTBLK POINTER 

4202 053720 020327 003062 CMP R3, @TBLEND sENO OF TSTBLK? 

4203 053724 103002 BHIS 400$ ;B8R IF YES 

4204 053726 000137 052722 JMP 200% 300 NEXT TSTBLK PATTERN 

nos 053732 400$: 

4207 053732 ENOSUB s4//4//4414/47 END SUBTEST //4///4///7// 
053732 L10067: 

oes 053732 104403 TRAP CsESuUB 

4209 053734 005737 002222 TST aeae ; ANY Ae ERRORS ? 

4210 053740 001402 BEQ ;BRANCH IF NOT 

4211 053742 004737 017202 JSR mee CKDROP ;TRY TO DROP THE UNIT 

4212 053746 4603: 

421 

4214 

4215 


K15 
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TEST 8: SUBTEST 1: LOOPBACK CONTROL SIGNAL TEST 


4217 
4218 .SBTTL TEST 8: SUBTEST 2: LOOPBACK READ/WRITE SIGNALS TEST 
4219 
4220 pee | 
4221 ; TEST 8: SUBTEST e2: 
4222 3 
4223 ; SUBTEST DESCRIPTION: 
4224 ; 
4225 : This subtest verifies the Read/Write date loopback path. 
4226 ; The Read/Write dete signels are IR<7:0> and IW<7:0> 
4227 ; respectively. | 
4228 3 | 
4229 ; TEST STEPS: 
4230 3 | 
4231 ; | 
4232 ; REPEAT FOR ALL TEST PATTERNS IN TSTBLK TABLE 
4233 ; BEGIN 
4234 3 Write to TSSR ister to soft initielize the controller 
4235 3 Do WRITE CHARACTERISTICS to check for Extended Features Switch 
4236 : If Extended beter aes Hardware Switch Cleer then: 
4237 ; Do Write em Write Misecelleneous to Set Extended Features. 
4238 ; Do WRITE CHARAC ERISTICS to select reserved unit 7 end setup BUFFER 
4239 : Do a Write a aggre WRITE NPR to set tape direction out and Loopback 
4240 : Do e WRITE NPR to set loopbeck and tape direction OUT 
4241 ; Do e WRITE FIFO with byte count equel to 1 and Tape direction OUT 
4242 F Do e@e READ FIFO with tape direction OUT to loed tape out write latch 
4243 ; Do a WRITE NPR to set loopbeck and tape a IN 
4244 ; Do e WRITE FIFO with byte count equel to 1 and Tape direction IN 
4245 ; to strobe loopback dete into FIFO. 
4246 ; Do ea READ FIFO with tape direction IN to read data 
4247 F If Dete reed from FIFO NOT= oe Dete sent Then Print Error 
4248 : Do ea Write Subsystem READ STATUS 
4249 3 If Input Reedy NOT=1 # Then Print Error 
4250 F If Output Ready NOT=0 Then Print Error 
4251 ; If Date In Miss NOT=0 Then Print Error 
4252 3 END 
4253 i-- 
4254 053746 BGNSUB ://////1///// BEGIN SUBTEST ////////// 
053746 T8.2: 
053746 104402 TRAP CsBSUB 
4255 ; Write to TSSR register to soft initialize the controller 
4256 053750 S$: 
4257 053750 004737 015774 JSR PC, SOF INIT sWRITE TO TSSR TO SOFT INITIALIZE 
4258 053754 103405 BCS 10% 38R IF SOFT INIT OKAY 
4259 053756 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 
4260 053760 ERROF ERRNO, SFIERR , SF IMSG DEVICE FATAL DURING ue’ 
053760 104455 TRAP CsEROF 
053762 001460 .WORD 816 
053764 003652 .WORD SFIERR 
053766 012034 .WORD SFIMSG 
4261 : Do ETE RC TERISTICS to check for Extended res Switch 
4262 053770 005037 00222z 10%: CLR FLG sCLEAR FATAL ERROR FLAG 
4263 053774 012704 062270 MOV eT IOPACKET, R4 sGET THE ADORESS OF COMMAND PACKET 
4264 054000 004737 010662 JSR PC ,WRTCHR ;00 WRITE CHARACTERISTICS COMMAND 
4265 054004 FORCERROR 12% s9@DFORCE ERROR IF FORCER=1 
4266 054020 103407 BcS 15% :6R IF CARRY SET (GOOD RETURN) 


4267 054022 010001 MOV RO,R1 i SAVE CONTENTS OF TSSR 





L15 


TSVS - HARDWARE TESTS MACRO M1113 14-JUN-84 15:55 SEQ 0193 
TEST 8: SUBTEST 2: LOOPBACK READ/WRITE SIGNALS TEST 
4268 054024 NEXT . ERRNO 
4269 054024 12$: ERRDF ERRNO,T19SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
054024 104455 TRAP CSEROF 
026 001461 -WORD 617 
054030 060203 -WORD T19SSR 
054032 012046 -WORD PKTSSR 
4270 054034 005237 002222 INC FATFLG sSET FATAL ERROR FLAG 
4271 054040 15%: CKLOOP sLOOP ON ERROR, IF FLAG SET 
| 054040 104406 TRAP CSCLPi 
| 4272 : If Extended Features Hardware Switch Clear then: 
4273 ; Do Write hn Write Miscelleneous to Set Extended Features. 
4274 054042 012701 062312 MOV OT196FR,R sMESSAGE BUFFER ADDRESS 
4275 054046 032761 000200 000012 BIT @x2. EXTF, xST2CR1) rEXTENDED FEATURES SWITCH SET? 
4276 054054 001026 BNE 30% :;BR IF Y 
4277 054056 004737 062142 JSR PC, TI9SEXT sSETUP PACKET «A ee MISC — 
4278 054062 012704 062440 MOV @T19PK2 ,R4 3;GET WRITE SUBSYSTEM COMMAND PACKET 
4279 054066 010465 000000 MOV R4, TSOBCRS) sSET THE PACKET ADORESS TO EXECUTE 
42860 054072 004737 016336 JSR PC ,.CHKTSSR sWAIT FOR SSR TO SET 
4281 054076 FORCERROR 22% 5 ERROR IF FORCER-1i 
4262 054112 103407 Bcs 30 ;8R IF CARRY SET (GOOD RET ) 
4283 054114 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 
4264 054116 NEXT. ERRNO 
4285 054116 22%: ERROF ERRNO,7T192SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
054116 104455 TRAP CSEROF 
054120 001462 -WORD 616 
054122 060240 .WORD 1192SSR 
054124 012046 .WORD PKTSSR 
42866 054126 005237 002222 INC FATFLG ;SET FATAL ERROR FLAG 
4287 054132 30$: CKLOOP ;LOOP ON ERROR, IF FLAG SET 
054132 104406 TRAP CSCLPi 
4288 3 4 WRITE Bayne Le ay pg to select reserved wiit 7 
42869 054134 012704 062270 SPACKET ,R4 :GET THE ADORESS OF COMMAND PACKET 
4290 054140 004737 010662 ier PC URTCr ;00 WRITE CHARACTERISTICS COMMAND 
4291 054144 FORCERROR 42% s@@0FORCE ERROR IF FORCER=1 
4292 054160 103407 Bcs 50% BR IF CARRY SET (GOOD RETURN) 
4293 054162 010001 Vv RO,R1 : SAVE CONTENTS OF TSSR 
4294 054164 NEXT .ERRNO 
4295 054164 42%: ERROF ERRNO,T19SSR,PKTSSR 


054170 060203 

054172 012046 
4296 054174 005237 002222 INC FATFLG 
4297 054200 50%: CKLOOP 

054200 104406 


s;DEVICE FATAL SSR FAILED TO SET 
TRAP 


CsEROF 
-WORD 6819 
«WORD T19SSR 
-WORD PKTSSR 
sSET FATAL ERROR F 
sLOOP ON ERROR, IF FLAG .. 
CsCLP1 


4300 ; REPEAT FOR 7, TEST PATTERNS IN TSTBLK TABLE 

4301 054202 012703 002752 MOV @TSTBLK,R3 3GET age PATTERN ADDRESS 

4302 054206 012337 002312 100%: MOV CR3)¢ DATA ‘GET A TEST PATTERN 

4303 054212 042737 177400 002312 BIC @t0<377>,DATA sDATA IS BYTE 

4304 054220 010337 002316 MOV R3, TSTPTR 3; SETUP yet TSTBLK POINTER 

4305 ; Do ea WRITE NPR to set loopbeck onl t direction OUT 

4306 054224 012700 000100 MOV @NnP .OUT RO 3SET hyn DIRECTION OuT 

4307 054230 052700 000040 BIS @NP LOOP ,RO :SET L ACK 

4308 054234 004737 062002 JSR PC, TI9SNPR sSETUP T19PK2 FOR WRITE NPR 

4309 054240 012704 062440 MOV @T19PK2 ,R4 3;GET WRITE SUBSYSTEM COMMAND PACKET 
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TEST 8: SUBTEST 2: LOOPBACK READ/WRITE SIGNALS TEST | 
4310 054244 010465 000000 MOV R4, TSOBCRS) ;SET THE PACKET ADDRESS TO EXECUTE 
4311 054250 004737 0163536 JSR PC ,.CHKTSSR sWAIT FOR SSR TO SET | 
4312 054254 FORCERROR 102% s@G0FORCE ERROR IF FORCER=1 
4313 054270 103407 6cs 105% BR IF CARRY SET (GOOD RETURN) 
4314 054272 010001 MOV RO,R1 eave CONTENTS OF TSSR 
4315 054274 NEXT .ERRNO 
4316 054274 102%: ERROF $ERRNO,1T194SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
054274 104455 TRAP CSEROF 
054276 001464 -WORD 620 
054300 060351 -WORD 1194SSR 
054302 012046 -WORD PKTSSR 
4317 054304 005237 002222 INC FATFLG sSET FATAL ERROR FLAG 
4316 054310 105$: CKLOOP ;LOOP ON ERROR, IF FLAG = 
054310 104406 TRAP CS$CLPi 
4319 3 Do ea WRITE FIFO with byte count equel to 1 end Tape direction OUT 
4320 054312 012700 000001 MOV #1,R0 sWRITE 1 BYTE 
4321 054316 012701 002312 MOV @DATA,R1 sFIFO WRITE DATA 
4322 054322 004737 062046 JSR PC. TISWFIF sSETUP T19PK2 FOR WRITE FIFO 
4323 054326 012704 062440 MOV $T19PK2 ,R4 sGET WRITE SUBSYSTEM COMMAND PACKET 
4324 010465 000000 MOV R4, TSOBCRS) :SET THE PACKET ADORESS TO EXECUTE 
4325 054336 004737 0163536 JSR ° sWAIT FOR SSR TO SET 
4326 054342 107% 38@DFORCE ERROR IF FORCER=1 
4327 054356 103407 bcs 110% :6R IF CARRY SET (GOOD RETURN) 
4328 054360 010001 ° sSAVE CONTENTS OF TSSR 
4329 054362 NEXT. ERRNO 
4330 054362 107$: ERRDF ERRNO,T195SSR,PKTSSR 


060414 

054370 012046 
4331 054372 005237 002222 INC FATFLG 
4332 054376 110% CKLOOP 
4333 
4334 054400 012700 000001 MOV #1,RO 
4335 054404 004737 062026 JSR PC, TISRFIF 
4336 054410 012704 062440 MOV @T19PK2 ,R4 
4337 054414 010465 000000 MOV R4, TSOBCRS) 
4338 054420 004737 016336 JSR PC ,.CHKTSSR 
4339 054424 FORCERROR 122% 
4340 054440 103407 BCS 130% 
4341 054442 010001 MOV RO,R1 
4342 054444 NEXT . ERRNO 
4343 054444 122$: ERRDF ERRNO,T196SSR,PKTSSR 


054452 
4344 054454 005237 002222 INC FATFLG 
4345 054460 130% CKLOOP 

054460 104406 
4346 ; 
4347 054462 005000 
4348 054464 052700 000040 BIS ONP .LOOP ,RO 
4349 054470 004737 062002 JSR PC, TLOSNPR 
4350 054474 012704 062440 MOV @T19PK2 ,R4 


4351 054500 010465 000000 MOV R4, TSOBCRS) 


sDEVICE FATAL SSR FAILED TO SET 
TRAP 


CSEROF 
-WORD 621 
-WORD 1195SSR 
-WORD PKTSSR 
sSET FATAL ERROR FLAG 
sLOOP ON ERROR, IF FLAG = 
TRAP CSCLP1 


Do e READ FIFO with tape direction OUT to load tape out write latch 


sSET READ BYTE COUNT 
sSETUP T19PK2 FOR READ FIFO 
sGET WRITE SUBSYSTEM COMMAND PACKET 
SET THE PACKET ADDRESS TO EXECUTE 
sWAIT FOR SSR TO SET 

s;Q@B0FORCE ERROR IF FORCER=1 
:BR IF CARRY SET (GOOD RETURN) 
SAVE CONTENTS OF TSSR 


sDEVICE FATAL SSR FAILED TO SET 
TRAP CSEROF 
-WORD 6822 
-WORD 1196SSR 
-WORD PKTSSR 

SET FATAL ERROR FLAG 

;sLOOP ON ERROR, IF FLAG SET 
TRAP CsCLPt 


;CLR NP.OUT TO SET TAPE DIRECTION IN 
;SET LOOPBACK 

sSETUP T19PK2 FOR WRITE NPR 

;GET WRITE SUBSYSTEM COMMAND PACKET 
;SET THE PACKET ADORESS TO EXECUTE 


. a = NPR to set loopbeck and tape direction IN 
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TEST 8: SUBTEST 2: LOOPBACK READ/WRITE SIGNALS TEST 

4352 054504 004737 016336 JSR PC, CHKTSSR ;WAIT FOR SSR TO SET 

4353 054510 FORCERROR 142$ ;@@DFORCE ERROR IF FORCER=1 

4354 054524 103407 Bcs 150% ;BR IF CARRY Y SET (GOOD RETURN) 

4355 054526 010001 MOV RO,R1 ;SAVE CONTENTS OF TSSR 

4356 054530 NEXT . ERRNO 

4357 054530 1423: ERRDF  ERRNO,T194SSR,PKTSSR ;DEVICE FATAL SSR FAILED TO SET 
054530 104455 TRAP CSEROF 
054532 001467 -WORD 823 
054534 060351 -WORD 1194SSR 
054536 012046 -WORD PKTSSR 

4358 054540 005237 002222 INC FATFLG ;SET FATAL ERROR FLAG 

4359 054544 150$: CKLOOP sLOOP ON ERROR, IF FLAG 
054544 104406 CSCLP1 

4360 3 Do a WRITE FIFO with byte count equal to 1 and Tape aiieenton IN 

4361 054546 012700 000001 MOV #1,R0 SCRITE. rf BYTE 

4362 054552 012701 002312 MOV @DATA,R1 sFIFO WRITE DATA ADDRESS 

4363 054556 004737 062046 JSR PC, T1SWFIF sSETUP T19PK2 FOR WRITE FIFO 

4364 054562 012704 062440 MOV @T19PK2 ,R4 ;GET WRITE SUBSYSTEM COMMAND PACKET 

4365 054566 010465 000000 MOV R4, TSDOBCRS) ;SET THE PACKET ADDRESS TO EXECUTE 

4366 054572 004737 016336 JSR PC, CHKTSSR ;WAIT [GR SSR TO SET 

4367 054576 FORCERROR 162$ s@@DFORCE ERROR IF FORCER=1 

4368 054612 103407 BcS 170$ ;BR IF CARRY SET (GOOD RETURN) 

4369 054614 010001 MOV RO,R1 iSAVE CONTENTS OF TSSR 

4370 054616 NEXT . ERRNO 

4371 054616 162$: ERRDF ERRNO,T195SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
054616 104455 TRAP CSERDOF 
054620 001470 -WORD 6824 
054622 060414 -WORD T195SSR 
054624 012046 -WORD PKTSSR 

4372 054626 005237 002222 INC FATFLG sSET FATAL ER@OR fLAG 

4373 054632 170$: CKLOOP ;LOOP ON ERRO. IF FLAG SET 
054632 104406 TRAP CS$CLP1 

4374 ; Do a READ FIFO with tape direction IN to read data 

4375 3 If Date read from FIFO NOT= to Date sent Then Print Error 

4376 054634 012700 000001 MOV #1,RO0 3SET READ BYTE COUNT 

4377 054640 004737 062026 JSR PC, TISRFIF } SETUP T19PK2 FOR READ FIFO 

4378 054644 012704 062440 MOV @T19PK2,R4 sGET WRITE SUBSYSTEM COMMAND PACKET 

4379 054650 010465 000000 MOV R4, TSDBCRS) ;SET THE PACKET ADDRESS TO EXECUTE 

4360 054654 004737 016336 JSR PC ,CHKTSSR sWAIT FOR SSR TO SET 

4381 054660 FORCERROR 182$ s88DFORCE ERROR IF FORCER=1 

4382 054674 103407 BCS 190% :8R IF CARRY SET (GOOD RETURN) 

4383 054676 010001 MOV RO,R1 } SAVE CONTENTS OF TSSR 

4364 054700 NEXT . ERRNO 

4385 054700 182$: ERRDOF ERRNO,T196SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
054700 104455 TRAP CSEROF 
054702 001471 -WORD 825 
054704 060460 ; -WORD 1196SSR 
054706 012046 .WORD PKTSSR 

4386 054710 005237 002222 INC FATFLG ;SET FATAL ERROR FLAG 

4387 054714 190$: CKLOOP ;LOOP ON ERROR, IF FLAG SET 
054714 104406 TRAP CSCLP1 

4388 054716 004737 062200 JSR PC, TLOSETEXP ;SET WORDS 0-7 EXPD=RECV (NOT TESTING) 

4389 054722 012701 060042 MOV @TISEXSTA,R1 sGET EXPECTED READ STATUS 

4390 054726 012702 062332 MOV OT19BFSTA,R2 ;GET RECV READ STATUS 

4391 054732 013711 002312 MOV DATA,(R1) sSET EXPD WORD 66 = DATA 

4392 054736 016261 000002 000002 MOV 2acR2), 2(R1) sSET EXPD WORD #9 = RECV (NOT TESTING) 

4393 054744 005000 CLR sHIGH RECV ADDRESS FOR CKMSG2 
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test 6: SUBTEST 2: LOOPBACK READ 


012701 
4395 OS47S2 012702 
012705 
0046737 


103404 


= 


B16 


- JN-64 15:55 SEQ 01% 
SIGNALS TEST 
"Ov OTISOFR AL sLOW RECV ADORESS FOR CKMSG2 
MOV OTISEXP .R2 sEXPD ADORESS 
MOV #16. RS sNUPBER OF BYTES TO COMPARE 
JSR ° sEXPD EQUAL RECV? 
F 2028 ,NOTSSR 1 820 
- 2106 18R IF YES 
2028: ERRNO, T199CMP ,.MSGSUB sREPORT ERROR 
TRAP CSERHRD 
. WORD 
. WORD T199CrP 
. WORD 
2108:  CKLOOP LOOP ON ERROR, IF FLAG SET cone 
8 1 
3 Do @ Write Subeystem READ STATUS 
F If Input Ready NOT*1 Then Print Erro- 
ry If Output Ready NOT*O Then Print Error 
’ I? Dete In Mise NOT*O Tren Print Error 
Jt PC, T19SRO sSETUP PACKET FOR READ STATUS 
MOV OT19PK2 RA 1GET WRITE SUBSYSTEM COPPWO PACKET 
Ov a4, TSOB(RS) sSET THE PACKET ADORESS TO EXECUTE 
JSR PC .CHXKTSSR iMAIT FOR SSR TO SET 
F ORCERROR 2128 s@G0F ORCE ERROR IF FORCER=-1 
ecs 2208 s0R IF CARRY gi (GOOD RETURN) 
MOV RO,R1 sSAVE CONTENTS OF TSSR 
NEXT . ERRNO 
212%: ERROF ERRNO. T1935SSR,PKTSSR sOEVICE FATAL SSR FAILED TO SET 
TRap CSERDF 
-WORD 627 
.WORD T193SSR 
PKTSSR 
INC FATFLG sSET FATAL ERROR FLAG 
2208: CKLOOP sLOOP ON ERROR, td ase 
JSR PC, TISSETEXP sSET WORDS 0-7 ewo-necy’ (rot TESTING) 
OV @TISEXSTA,R1 sGET EXPECTED READ STAT 
mov @TISSFSTA,R2 sGET @ECV READ STATUS 
MOV CR2)¢, CRI D+ sSET EXPD WORD 66 = RECV TEMP 
Ov (a2), (R1) sSET EXPD WORD 09 © RECV TEP 
BIs . Dey ,.( Al) sSET EXP INPUT READY= 1 
BIC @S2.QOUTRDY .(R1) 3SET EXP OUTPUT READY= 0 
BIc @S$2.0IN,(R1) sSET EXP DATA IN MISS = 0 
c.R sMIGH RECV ADORESS FOR CKMSG2 
"Ov OT1LSBFR AIL sLOw RECV ADORESS FOR CKMSG2 
Ov OT19ExXP .R2 sEXPO ADORESS 
MOV . a3 sMUPBER OF BYTES TO COMPARE 
JSR PC. sEXPO EQUAL RECV? 
F ORCERROR 232% .MOTSSR 1 RD 
ecs 2408 :;0R IF YES 
NEXT .ERRNOD 
232%: ERRNO. T196CHP .MSGSTAT sREPORT ERROR 
TRAP CsSERHRD 
. WORD 
. WORD T196CrP 
.WORD MSGSTAT 
240%:  CKLOOP :LOOP ON ERROR, IF FLAG SET 
TRAP CSCLPl 


C16 


TSVS - HARDWARE TESTS MACRO MILLIS 14-Am-64 15:55 SEQ 0197 
TEST 6: SUBTEST 2: LOOPBACK READ/WRITE SIGWAS TES’ 
OG te 
4437 
aa 
4439 055172 FORCEXIT 2558 1880 
4440 055202 013703 002516 Ov TSTPTR RS sRESTORE CURRENT TSTBLK POINTER 
4441 055206 020327 003062 cer RS, OTOLEND sEND OF TSTBLK? 
4442 055212 103002 BHIS 255% s0R IF YES 
4443 055214 000137 054206 JP 1006 300 ANOTHER TSTOLK PATTERN 
=e 055220 255%: 
444 
4446 055220 ENDSUB eAAASSATLISSTE EW SUBTEST 444/44 0/7477/ 
055220 10070: 
. 055220 106405 TRAP CsESUB 
aaa 
4446 055222 005737 002222 Ts’ FATFLG sANY FATAL ERRORS ? 
4449 055226 001402 BEQ 2608 sBRANCH IF NOT 
4450 055230 004737 017202 JSA PC , CKDROP sTRY TO OROP THE UNIT 
4451 0552354 2608: 
4452 
4453 
eos .SBTTL TEST 6: SUBTEST 3: LOOPBACK WRITE STROBE TEST 
a4 aes 
4457 s TEST 6: SUBTEST 5 
4458 t 
oe ; SUBTEST DESCRIPTION: 
‘ 
446) ; Tris aerwage wor iVics the Write Strobe loopbeck peth 
Gago : cen strobe dete froe the FIFO to the Dete lines. 
hast F Tre sigrel inesvS oF @rives IwSTR "Ertan strobe) to urite 
on 5 dete from the FIFO to the tepe dete out letch. 
; 
E45H ; TEST STEPS: 
4467 ry 
4468 3 
aad ; REPEAT FOR ALL TES’ PATTERNS IN TSTBLK TABLE 
4470 F BEGIN 
aay, 5 Write to TSSR ister to soft inisielise the controller 
4472 ‘ Be WRITE Ist Ics te check for Extended Features Switch 
447s 3 If Extended a cee Switch Clear then: 
4474 P Oe write SSevetes Write Miecelleneous to Set Extended Features. 
4475 ’ Do WRITE STICS te select | senerend unit 7 end setup BUFFER 
4476 P Co os Write WRITE MPR to eet tape direction out end Loopbeck 
4477 ' Do @ WRITE WR gat end tape direction 
4476 ry De e WRITE FORMAT to set e>IWSTR = 1 
4479 ’ Do e MITE FIFO with byte count equel to 1 and Tape direction OUT 
4480 5 Do e WRITE FORMAT to set IRESVS-=>IWSTR = 0 to loed write dete letch 
4481 s Do e WRITE FORMAT to set IRESVS-<>IWSTR = 1 
4482 5 Do @ WRITE NPR to set loopbeck and tepe direction IN 
448% 5 Do e WRITE FIFO with byte count equel to 1 end Tape direction IN 
A484 : to strobe loopbeck dete into FIFO. 
4485 P Do e RESD FIFO with tape direct:on IN to reed dete 
4486 5 If Dete reed from FIFO NOT= to Dete sent Then Print Error 
4487 5 ENO 
4488 Fy 
44869 055234 BGNSUB 


AAA ALA ae aerare SAAS 
8.3: 


U1 


TSVS - HARDWARE TESTS MACRO M1113 14-JUN-864 15:55 SEQ 0198 
TEST 8: SUBTEST 3: LOOPBACK WRITE STROBE TEST 
055234 1046402 }RAP Cs8Sus8 

a4 ; Write to TSSR register to soft initielize the controller 

4491 055236 S$: 

4492 055236 004737 015774 JSR PC. SOF INIT sWRITE TO TSSR TO SOFT INITIALIZE 

4493 055242 103405 ecs 10% s6R IF SOFT INIT OKAY 

4494 055244 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 

4495 055246 ERROF ERRNO, SFIERR,SFIMSG sDEVICE FATAL DURING INIT 
055246 104455 TRAP CSEROF 
055250 001474 -WORD 626 
055252 003652 -WORD SFIERR 
055254 01206 -WORD SFIMSG 

a4 ; Do —, - tat to check for Extendeo Features Sui teh 

4497 055256 005037 002222 108: CLR FLG sCLEAR FATAL ERROR FLAG 

4496 055262 012704 062270 MOV OTISPACKET RG sGET THE ADORESS OF COMMAND PACKET 

a4 004737 010662 JSR PC WRT 100 WRITE CHARACTERISTICS COMMAND 

4500 055272 FORCERROR les @GDF ORCE ERROR IF FORCER=-1 

4501 055306 103407 ecs 158 36R IF CARRY SET (GOOD RETURN) 

4502 055310 010001 MOV RO,.Ri 1 SAVE CONTENTS OF TSSR 

4503 055312 NEXT. 

4 0553 128: ERROF ERRMO,TI19SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
055312 1046455 Trae CSEROF 
055314 001475 -WORD 629 
055316 060205 -WORD T19SSR 
055320 012046 PKTSSR 

4505 055322 005237 002222 INC FATFLG sSET FATAL ERROR FLAG 

4506 055326 158: CKLOOP sLOOP ON ERROR, IF FLAG SET 
055326 104406 TRAPS CSCLP1 

4507 F I? Extended Features Herdwere Switch Clear then: 

4506 : Do Write Seaveoes Write Miscellaneous to Set Extended Features. 

4509 055330 012701 062312 MOV @T196FR,R1 sMESSAGE BUFFER ADORESS 

4510 055334 032761 000200 000012 BIT @x2. EXTF, xST2(R1) }EXTENDED FEATURES SWITCH SET? 

4511 055342 001076 BNE Oe s6R IF YES 

512 055 004737 062142 JSR PC, TISSEXT sSETUP P T FOR WRITE MISC INVERT 

45135 055350 012704 MOV @T19PK2 ,R4 sGET WRITE SUBSYSTEM COMMAND PACKET 

4514 055354 010465 MOV R4, TSOB(RS) 3SET THE PACKET ADORESS TO EXECUTE 

4515 055360 004737 016336 JSR PC .CHKTSSR IWAIT FOR SSR TO SET 

4516 055364 FORCERROR 22 sQ@GDFORCE ERROR IF FORCER<-1 

4517 055400 103407 Bcs 308 :;6R IF CARRY SET (GOOD RETURN) 

4516 055402 010001 MOV RO,R1 ; sSAVE CONTENTS OF TSSR 

4519 055404 NEXT. 

4520 055404 22%: ERRDF ERRNO, T192SSR,PXKTSSR sDEVICE FATAL SSR FAILED TO SET 
055404 104455 TRAP CSEROF 

5406 001476 .WORD 630 
055410 060240 -WORD 1192SSR 
055412 012046 .WORD PKTSSR 

4521 055414 005237 002222 INC FATFLG sSET FATAL ERROR FLAG 

4522 055420 308: CKLOOP sLOOP ON ERROR, IF FLAG a 
05 104406 CscL_P1 

4523 ; Do WRITE snaharke = to select reserved wit 7 

4524 055422 012704 062270 MOV SPACKET ,R4 sGET THE ADORESS OF COMMAND PACKET 

4525 055426 004737 010662 JSR PC URTOR :00 WRITE CHARACTERISTICS COMMAND 

4526 055432 FORCERROR 42% ERROR IF FORCER=1 

4527 055446 103407 6cs 506 :6R IF CARRY SET (GOOD RETURN) 

4526 055450 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 

& 055452 NEXT .E 

4530 055452 42%: ERROF ERRNO, T19SSR,PKTSSR ;DEVICE FATAL SSR FAILED TO SET 
055452 104455 TRAP CSEROF 





TSVS - HARDWARE 
TEST 8: SUBTEST 


4573 055712 


TESTS 
3:4 


104406 


E16 
MACRO MILLS. 14-WN-84 15:55 SEQ 0199 


Mill 
OOPBACK WRITE STROBE T 


WORD 831 
-WORD T1i9SSR 
-WORD PKTSSR 
002222 INC FATFLG sSET FATAL ERROR FLAG 
50$: CKLOOP sLOOP ON ERROR, IF FLAG . 


CSCLP1 
3; REPEAT FOR ~ TEST PATTERNS IN TSTBLK TABLE 
MOV eTsT 


002752 BLK,RS ;GET Ae +! PATTERN ADORESS 
002312 100%: MOV CR3)+, DATA iGET A TEST PATTERN 
177400 002312 BIC aged oh ” agp sDATA IS BYTE 
002316 MOV R3,TSTP sSETUP CURRENT TSTBLK POINTER 
; a @ WRITE NPR Z set loopbeck ond t direction 
000100 OP .OUT ,RO sSET TAPE DIRECTION OUT 
000040 ors @NP LOOP ,RO sSET LOOPBACK 
062002 JSR PC. TISSNPR sSETUP T19PK2 FOR WRITE NPR 
062440 MOV #T19PK2,R4 sGET WRITE SUBSYSTEM COMMAND PACKET 
000000 MOV R4, TSOBCRS) sSET THE PACKET ADORESS TO EXFCUTE 
016336 JSR PC, CHKTSSR IMAIT FOR SSR TO SET 
FORCERROR 102% s@GDFORCE ERROR IF FORCER<1 
ecs 105% ;6R IF CARRY SET (GOOD RETURN) 
MOV RO,R1 | SAVE CONTENTS OF TSSR 
NEXT. ERRNO 
102%: ERRDF ERRNO,T194SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
TRAP CSEROF 
-WORD 632 
-WORD 1194SSR 
PKTSSR 
002222 INC FATFLG sSET FATAL ERROR FLAG 
105%: CKLOOP sLOOP ON ERROR, IF FLAG SET 
TRAP CSCLP1 
3 Do e — FORMAT to set IRESV3==>IWSTR = 1 
000002 MOV OF .ISRES.RO s IRESV3<*>IWSTR=1 
062122 JSR PC, TIOWFMT } SETUP T9PK2 FOR WRITE FORMAT 
062440 MOV @T19PK2 ,R4 sGET WRITE SUBSYSTEM COMMAND PACKET 
C00000 R4, TSUB(RS) sSET THE PACKET ADDRESS TO EXECUTE 
016336 JSR PC ,.CHKTSSR sWAIT FOR SSR TO SET 
FORCERROR 112s s@G0FORCE ERROR IF FORCER=1 
Bcs 120% 36R IF CARRY SET <oce RETURN) 
MOV RO,R1 sSAVE CONTENTS OF TSSR 
NEXT. ERRNO 
112%: ERROF ERRNO, T198SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
TRAP CSEROF 
. WORD 33 
.WORD 1196SSR 
.WORD PKTSSR 
002222 INC FATFLG 3SET FATAL ERROR FL 
120%: CKLOOP 3LO0P ON ERROR, IF FLAG oeY cate 
; Do e WRITE FIFO with byte count equel to 1 and Tape aéeonaton OuT | 
000001 MOV #1,R0 uRITE f BYTE 
002312 MOV @DATA,R1 tFIFO WRITE DATA ADORESS 
062046 JSR PC, TISWFIF sSETUP T19PK2 FOR WRITE FIFO 
062440 MOV OT19PK2 ,R4 3GET WRITE SUBSYSTEM COMMAND PACKET 
000000 MOV R4, TSOBCRS) sSET THE PACKET ADORESS TO EXECUTE 
016336 JSR PC ,CHKTSSR sWAIT FOR SSR fO SET 
FORCERROR 1328 :Q@B0FORCE ERROR IF FORCER=1 





TSVS - HARDWARE TESTS 
TEST 8: SUBTEST 3: LOOPBACK WRITE STROBE T 


4576 055742 005237 002222 


055750 005000 
4562 055752 004737 062122 
055756 062440 


000000 
4565 055766 004737 016336 


4590 056012 1528: 
0560 


4591 005237 002222 

4592 056026 160% 
056026 104406 

4593 3 

4594 012700 000002 


4597 056044 010465 
4596 056050 004737 016336 
4599 056054 


4603 056074 172%: 


12046 
4604 056104 005237 002222 


MACRO M1113 14- aS test 15:55 SEQ 0200 
ecs 140% s6R IF CARRY SET (GOOD RETURN) 
MOV RO,R1 sSAVE CONTENTS OF TSSR 
NEXT . ERRNO 
ERRDOF ERRNO,T195SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
TRAP CSEROF 
-WORD 834 
.WORD 1195SSR 
PKTSSR 
INC FATFLG sSET FATAL ERROR FLAG 
CKLOOP sLOOP ON ERROR, IF FLAG SET 
TRAP CSsCLPi 
Do e WRITE FORMAT to set IRESV3<=>IWSTR = 0 
CLR RO sSET IRESV3<=>IWSTR=0 
JSR PC, TISWFMT ;SETUP T9PK2 FOR WRITE FORMAT 
MOV @T19PK2 ,R4 sGET WRITE SUBSYSTEM COMMAND PACKET 
MOV R4, TSOB(RS) sSET THE PACKET ADORESS TO EXECUTE 
JSR PC ,.CHKTSSR sWAIT FOR SSR TO SET 
FORCERROR 152% s@@DFORCE ERROR IF FORCER=1 
Bcs 160% s6R IF CARRY SET (GOOD RETURN) 
MOV RO,R1 sSAVE CONTENTS OF TSSR 
NEXT. ERRNO 
ERROF ERRNO,T196SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
TRAP CSEROF 
-WORD 8635 
—— T196SSR 
PKTSSR 
INC FATFLG 3SET FATAL ERROR FLAG 
CKLOOP sLOOP ON ERROR, IF FLAG ie pata ee 
Do e WRITE FORMAT to set IRESV3==>IWSTR . 
MOV OF .ISRES,RO S IRESVSeo>TUSTRe} 
JSR PC, TISWFMT sSETUP T9PK2 FOR WRITE FORMAT 
MOV @T19PK2 ,R4 iGET WRITE SUBSYSTEM COMMAND PACKET 
MOV R4,TSDBCRS) sSET THE PACKET ADORESS TO EXECUTE 
JSR PC, CHKTSSR sWAIT FOR SSR TO SET 
FORCERROR 172$ s@GDFORCE ERROR IF FORCER=1 
6cs 1803 36R IF CARRY SET (GOOD RETURN) 
MOV RO,R1 sSAVE CONTENTS OF TSSR 
NEXT .ERRNO 
ERRDF ERRNO,T198SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
TRAP CSEROF 
-WORD 836 
.WORD 1198SSR 
PKTSSR 
INC FATFLG sSET FATAL ERROR FLAG 
CKLOOP sLOOP ON ERROR, IF FLAG SET 
TRAP C$CLPi 


. e WRITE NPR to set loopback and Supe direction IN 
CLR RO ;CLR NP.OUT TO SET TAPE DIRECTION IN 


BIS ONP .LOOP ,RO SET LOOPBACK 

JSR PC, TIOSNPR SETUP T19PK2 FOR WRITE NPR 

MOV @T19PK2 ,R4 sGET WRITE SUBSYSTEM COMMAND PACKET 
MOV R4, TSOBCRS) sSET THE PACKET ADDRESS TO EXECUTE 
JSR PC ,.CHKTSSR sWAIT FOR SSR TO SET 

FORCERROR 182% sQB0FORCE ERROR IF FORCER=1 
BCS 190% s6BR IF CARRY SET (GOOD RETURN) 


cc er a ee ee ee eee - ae ome ee ee 


G16 
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TSVS - HARDWARE TESTS 
TEST 6: SUBTEST 3: LOOPBACK WRITE STROBE T 


4616 056156 010001 
4617 056160 


4618 056160 162%: 


4620 056174 190%: 


SEQ 0201 
MOV RO,R1 sSAVE CONTENTS OF TSSR 
NEXT . ERRNO 
ERROF ERRNO, T194SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
TRAP CSEROF 
. WORD 7 
— T194SSR 
PKTSSR 
INC FATFLG sSET FATAL ERROR FLAG 
CK. OOP sLOOP ON ERROR, IF FLAG eo ens 
$CLP1 


4621 : Do @ WRITE FIFO with byte count equel to 1 end Tape divcation IN 
4622 056176 012700 1 MOV #1,R0 sWRITE 1 BYTE 
| = 4623: 056202 012701 002312 MOV @DATA,R1 sFIFO WRITE DATA ADORESS 
| 4624 004737 JSR PC, T1SWFIF sSETUP T19PK2 FOR WRITE FIFO 
4625 056212 012704 062440 MOV OT19PK2,R4 IGET WRITE SUBSYSTEM COMMAND PACKET 
| 4626 056216 010465 R4, TSOBCRS) sSET THE PAEXET oftoness TO EXECUTE 
4627 056222 004737 016336 JSR PC ,CHKTSSR sWAIT FOR SSR TO SET 
| —@4628 056226 2028 :@@0FORCE ERROR IF FORCER=1 
| 4629 056242 103407 Bcs 210% :6R IF CARRY SET (GOOD RETURN) 
4630 056244 010001 RO,R1 sSAVE CONTENTS OF TSSR 
4631 056246 NEXT . ERRNO 
4632 056246 202:  ERRDF ERRNO, T19SSSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
056246 104455 TRAP CsEROF 
| 056250 001506 . WORD 38 
| 056252 060414 .WORD T195SSR 
| 056254 012046 .WORD PKTSSR 
4633 056256 005237 002222 INC FATFLG 3SET FATAL ERROR FLAG 
| 4634 056262 210%: CKLOOP sLOOP ON ERROR, IF FLAG SET 
056262 104406 TRAP CsCLP1 
4635 3 Do a READ FIFO witn tape direction IN to read dat 
4636 012700 000001 MOV #1,RO sSET READ BYTE 
| 4637 056270 004737 062026 JSR PC, TLORFIF }SETUP T19PK2 FOR READ FIFO 
| 4638 056274 012704 062440 MOV @T19PK2,R4 set WRITE SUBSYSTEM COMMAND PACKET 
4639 010465 000000 MOV R4, TSDBCRS) T ACKET ADORESS TO EXECUTE 
4640 056304 004737 016336 JSR PC ,CHKTSSR ;MAIT FOR SSR TO SE 
4641 056310 F 3 @GOF ORCE ERROR IF FORCER=1 
| 4642 056324 103407 Bcs 2308 :BR IF CARRY SET (GOOD RETURN) 
4643 056326 010001 MOV RO,R1 ;SAVE CONTENTS OF TSSR 
| 4644 056330 NEXT 
4645 056330 222%: ERRNO, T196SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
056330 104455 TRAP CSEROF 
056332 001507 . WORD 39 
056334 .WORD T196SSR 
056336 012046 .WORD PKTSSR 
4646 340 005237 002222 FATFLG 3SET FATAL ERROR FLAG 
| 4647 056344 230% CKLOOP ;LOOP ON ERROR, IF FLAG SET 
056344 104406 CS$CLP1 
4648 3 If Dete reed from “ve NOT= to Date sent Then Print Erro 
4649 056346 004737 062200 PC, TL9SETEXP sSET WORDS 0-7 EXPD=RECV (NOT TESTING) 
| 4650 056352 012701 MOV @TISEXSTA,R1 iGET EXPECTED READ STATUS 
| 4651 056356 012702 062332 MOV @T19BFSTA,R2 ;GET RECV READ STATUS 
4652 013711 002312 MOV DATA, (R1) 3SET E WORD @6 = DATA 
| 4653 056366 016261 000002 000002 2(R2),2(R1) sSET EXPD WORD @9 = RECV (NOT TESTING) 
| 4654 056374 CLR RO sMIGH RECV ADDRESS FOR CKMSG? 
| 4655 056376 012701 062312 MOV OTLOBFR,R1 sLOW RECV ADDRESS FOR CKMSG2 
| 4656 012702 060022 MOV @T19EXP ,R2 sEXPD ADORESS 
| 4657 056406 012703 000022 MOV 018. ,R3 sNUMBER OF BYTES TO COMPARE 





004737 
103404 
104456 
001510 
061503 
013742 
104406 


013703 
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TEST 6: SUBTEST 3: LOOPBACK WRITE STROBE TEST 


011500 


002316 
003062 


055474 


002222 
017202 


242%: 


2503: 


255%: 


2608: 


H16 


er ee ee ee e+ 


JSR PC ,.CKMSG2 sEXPD EQUAL RECV? 
FORCERROR 242% ,NOTSSR F 
ecs 250% ;8R IF YES 
NEXT . ERRNO 
ERPHRD ERRNO, TLSWSTR,MSGSUB sREPORT ERROR 
TRAP CSERHRD 
-WORD 640 
. T19WSTR 
-WORD MSGSUB 
CKLOOP :LO0P ON ERROR, IF FLAG SET 
TRAP CSCLPi 
FORCEXIT 255 
MOV TSTPTR,RS sRESTORE ery TSTBLK POTNTER 
CMP R3, @TBLEND }END OF — 
BHIS 255% ;6R IF 
JP 100% 300 OTTER TSTBLK PATTERN 
ENDSUB s///1111//1747 END SUBTEST S///////7/7/ 
L10071: 


TRAP CsESUB 
TST FATFLG sANY FATAL ERRORS ? 
BEQ 260% BRANCH IF NOT 
JSR PC ,CKDROP sTRY TO DROP THE UNIT 


-SBTTL TEST 8: SUBTEST 4 LOOPBACK READ STROBE TEST 


3° 
; TEST 8: SUBTEST 4: 


SUBTEST DESCRIPTION: 


This eubtest verifies the Reed Strobe loopback peth 
cen strobe the dete from the Data lines to the FIFO. 
The signel IRESV4 drives IRSTR arene strobe) to write 
from the dete lines to the FIFO 


TEST STEPS: 


REPEAT FOR ALL TEST PATTERNS IN TSTBLK TABLE 
BEGIN 


SR ister to soft initielize the controller 
Do WRITE CHARACTERISTICS to check for Extended Features Switch 
Features Herdwere Switch Clear then: 
Do SGoretes tem Write Miecelleneous to Set Extended Features. 
Do WRITE CHARACTERISTICS to select reserved unit 7 and setup BUFFER 
Wr tem WRITE NPR to set tape direction out and Loopback 
WRITE NPR to set 1 end t direction OUT 
WRITE FORMAT to set Sv4=2>IRSTR = 1 
WRITE FIFO with byte count equel to 1 and Tape direction OUT 
READ FIFO with tepe direction = to load tape out write latch 
we t 1 and t direction IN 
WRITE FORMAT to set IRESV4==>IRSTR = 0 to write loop data to FIFO 


TSVS - MAROWARE TESTS CRO M1113 
TEST 8: SUBTEST 4 LOOPBACK READ STROBE TEST 
4708 
4709 
4710 
4711 
47le2 
4713 
4714 056504 
056504 
056504 104402 
4715 
4716 056506 


4717 056506 004737 015774 


4722 056526 005037 002222 
4723 056532 012704 062270 
4724 056536 004737 010662 


4730 056572 005237 002222 


& 
~ 
w 
w 


056662 012046 
4746 056664 005237 002222 


000012 


14-JUN-64 15:55 


; 
108: 


les: 


22%: 





116 


SEQ 0203 
Do e WRITE FORMAT to set IRESV4==>IRSTR = 1 
(to strobe loopbeck dete into FIFO.) 
Do e READ FIFO with tape direction IN to read date 
— Dete reed from FIFO NOT= to Date sent Then Print Error 
BGNSUB TAAAALAALALL =: SUBTEST /////////7/ 
4: 


TRAP Cs6SuUB8 
Write to TSSR register to soft initielize the controller 


JSR PC, SOF INIT sWRITE TO TSSR TO > INITIALIZE 

BCS 10$ 368R IF SOFT INIT OKAY 

MOV RO,R1 sSAVE CONTENTS OF TSSR 

ERROF ERRNO, SFIERR,SFIMSG ‘DEVICE FATAL DURING INIT 
TRAP CSEROF 
-WORD 640 
-WORD SFIERR 
-WORD SFIMSG 

Do — —— to check for Extended Feetures Swi teh 

CLR FLG ;CLEAR FATAL ERROR FLAG 

MOV OTISPACKET RS iGET THE ADORESS OF COMMAND PACKET 

JSR PC, WRTCHR 300 WRITE CHARACTERISTICS COMMAND 

FORCERROR 12% s@G0FORCE ERROR IF FORCER=1 

ecs 15% :6R IF CARRY SET (GOOD RETURN) 

eo RO,R1 ;SAVE CONTENTS OF TSSR 

E ERRNO, T19SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
TRAP CSERDF 
-WORD 841 
.WORD T19SSR 

PKTSSR 

INC FATFLG 3SET FATAL ERROR FLAG 

CKLOOP sLOOP ON ERROR, IF FLAG SET 
TRAP CsCLPl 


If Extended Features Herdwere Switch Cleer then: 
~~ Write = Write Miscelleneous to Set ym Features. 


@T19BFR,R1 sMESSAGE BUFFER 
BIT @X2. EXTF ,XST2(R1) SEXTENDED FEATURES SWITCH SET? 
BNE 30% s6R IF YES 
JSR PC, TI9SEXT SETUP PACKET FOR WRITE MISC INVERT 
MOV @T19PK2 ,R4 sGET WRITE SUBSYSTEM COMMAND PACKET 
MOV R4, TSOBCRS) s;SET THE PACKET ADORESS TO EXECUTE 
JSR PC ,.CHKTSSR sWAIT FOR SSR TO SET 
FORCERROR 228 s;@G0FORCE ERROR IF FORCER=1 
BCS 30% 36R IF CARRY SET (GOOD RETURN) 
RO,R1 S SAVE CONTENTS OF TSSR 
NEXT . ERRNO 
ERRDF ERRNO,7T192SSP,PKTSSR ;DEVICE FATAL SSR FAILED TO SET 
TRAP CSEROF 
-WORD 6842 
-WORD 1192SSR 
-WORD PKTSSR 
INC FATFLG SET FATAL ERROR FLAG 
CKLOOP :LOOP ON ERROR, IF FLAG SET 
TRAP CSCLP1 


Do WRITE CHARACTERISTICS to select reserved unit 7 


eee aS. 
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4749 056672 012704 062270 
475C 056676 004737 010662 
056702 


4752 056716 103407 
4753 056720 010001 


4755 056722 42%: 
056722 104455 


J16 


SEQ 0204 


MOV @TISPACKET ,R4 sGET THE ADDRESS OF COMMAND PACKET 
JSR »WRTCHR 00 WRITE CHARACTERISTICS COMMAND 
FORCERROR 42% s@@DFORCE ERROR IF FORCER=1 
BCS 50$ s68R IF CARRY SET (GOOD RETURN) 
next s RO,R1 SAVE CONTENTS OF TSSR 


. ERRNO 
ERROF ERRNO,T19SSR,PKTSSR sDEVICE FATAL SSR — 


CSERDF 


056724 001513 .WORD 843 
056726 060203 -.WORD T19SSR 
056730 012046 .WORD PKTSSR 

4756 056732 695237 002222 INC FATFLG sSET FATAL ERROR FLAG 

4757 056736 50$: CKLOOP sLOOP ON ERROR, IF FLAG SET 

on 056736 104406 TRAP CS$CLP1 

4 

4759 ; REPEAT FOR au TEST PATTERNS IN TSTBLK TABLE 

4760 056740 012703 002752 MOV @TSTBLK,R sGET Finst PATTERN ADDRESS 

4761 056744 012337 002312 100$: MOV (R3)+,DATA iGET A TEST PATTERN 

4762 056750 042737 177400 002312 BIC 6tC<377>,DATA ote IS BYTE 

4763 056756 010337 002316 MOV R3, TSTPTR SETUP CURRENT TSTBLK POINTER 

4764 3 Do e WRITE NPR to set loopback Any t direction 

4765 056762 012700 900100 MOV @NP .OUT,RO :SET TAPE DIRECTION OUT 

4766 056766 052700 000040 BIS @NP LOOP , RO sSET LOOPBACK 

4767 056772 004737 062002 JSR PC,T1 SETUP T19PK2 FOR WRITE NPR 

4768 056776 012704 062440 MOV @T19PK2,R4 ;GET WRITE SUBSYSTEM COMMAND PACKET 

4769 057002 010465 MOV R4, TSOBCRS) 3;SET THE PACKET ADORESS TO EXECUTE 

4770 057006 004737 016336 JSR PC, CHKTSSR sWAIT FOR SSR TO SET 

4771 057012 FORCERROR 102$ ;@3a0F ERROW IF FORCER=1 

4772 057026 103407 BcsS 105% ;8R IF CARRY SET (GOOD RETURN) 

4773 057030 010001 Vv RO.R1 ;SAVE CONTENTS OF TSSR 

4774 057032 NEXT . ERRNO 

4775 057032 102%: ERRDF ERRNO,T194SSR,PKTSSR s;DEVICE FATAL SSR FAILED TO SET 
057032 104455 TRAP CSEROF 
057034 001514 .WORD 644 
057036 060351 .WORD T194SSR 
057040 012046 .WORD PKTSSR 

4776 057042 005237 002222 INC FATFLG ;SET FATAL ERROR FLAG 

4777 057046 105% CKLOOP ;LOOP ON ERROR, IF FLAG SET 
057046 104406 CS$CLP1 

4778 ; Do e WRITE FORMAT to set IRESV4==>IRSTR = 

4779 057050 012700 000001 MOV OF .T4RES RO * TRESV40e>TRSTR1 

4780 057054 004737 062122 JSR PC, TISWFMT ;SETUP TOPK2 FOR WRITE F 


4786 057114 112s: 


4789 057124 005237 002222 
4790 057130 120%; 


ORMAT 
3;GET WRITE SUBSYSTEM COMMAND PACKET 
sSET THE PACKET ADORESS TO EXECUTE 
sWAIT FOR SSR TO SET 


FORCERROR 112% er ERROR IF FORCER=1 

BcsS 120% ;BR IF CARRY SET (GOOD RETURN) 

MOV RO,R1 SAVE CONTENTS OF TSSR 

NEXT . ERRNO 

E ERRNO, T196SSR,PKTSSR ;DEVICE FATAL SSR FAILED TO SET 
TRAP CsERDF 
-WORD 845 
-WORD 1198SSR 
-WORD PKTSSR 

INC FATFLG sSET FATAL ERROR FLAG 

CKLOOP ;LOOP ON ERROR, IF FLAG SET 
TRAP C$CLP1 


ee — a ee ee —_—_ —- - -- a 


K16 
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tesi 8: SUBTEST 4 LOOPBACK READ STROBE TEST 


4792 057132 012700 000001 
4793 057136 012701 002312 
062046 


4795 057146 012704 062440 
000000 
4797 057156 004737 016556 


4803 057212 005237 002222 


000000 
4610 057240 004737 0163536 


4816 057274 005237 002222 


4830 057360 005237 002222 


1328: 


1528: 


182%: 


Do a WRITE FIFO with byte count equel t 
MOV #1,R0 SURITE 1 1 BYT 

sFIFO WRITE DATA ADDRESS 
sSETIP T1I9PK2 FOR WRITE FIFO 


SEQ 0205 


ol a Tape direction OUT 


GET WRITE SUBSYSTEM COMMAND PACKET 


MOV R4, TSOBCRS) sSET THE PACKET : TO EXECUTE 
JSR »CHKTSSR sWAIT FOR SSR TO SE 

F i32$ 3 BOF ORCE ERROR IF FORCER=1 
BCS 140% ;BR IF CARRY SET (GOOD RETURN) 

MOV RO,R1 sSAVE CONTENTS OF TSSR 


. ERRNO 
ERROF ERRNO,T195SSR,PKTSSR sDEVICE FATAL SSR teres + Fe 


CSEROF 
-WORD 846 
-WORD 1195SSR 
. WORD PKTSSR 
INC FATFLG ;SET FATAL ERROR FLAG 
CKLOOP sLOOP ON ERROR, IF FLAG SET 
TRAP C$CLPi 
Do ea READ FIFO with tape direction OUT to loed tape out write letch 
MOV #1,RO0 sSET READ BYTE COUNT 
JSR PC, TLSRF IF ;SETUP T19PK2 FOR READ FIF 


MOV R4, TSOBCRS) sSET 
PC sWAIT FOR SSR TO SET 
3s 8@0F 


sGET WRITE SUBSYSTEM COMMAND PACKET 
THE PACKET ADDRESS TO EXECUTE 


ORCE ERROR IF FORCER=1 


BCS 160% s6R IF CARRY SET (GOOD RETURN) 
+ A RO,R1 sSAVE CONTENTS OF TSSR 


. ERRNO 
ERRDF ERRNO, 7T196SSR,PKTSSR :DEVICE FATAL SSR — 


. WORD 
. WORD 
3SET FATAL ERROR FLAG 
sLOOP ON ERROR, IF FLAG ie 
A a —S NPR to set loopback and See direction 


INC FATFLG 
CKLOOP 


— 
T196SSR 
PKTSSR 


CsCLP1 


IN 
s;CLR NP.OUT TO SET TAPE DIRECTION IN 


BIS GNP .LOOP , RO 3SET LOOPBACK 
;SETUP T19PK2 FOR WRIT 


sGET WRITE SUBSYSTEM COMMAND PACK 
sSET PACKET ADORESS TO EXECUTE 


ET 


JSR ’ SR SWAIT FOR SSR TO SET 

F 1 s;@@OFORCE ERROR IF FORCER=1 

BCS 190% :BR IF CARRY SET (GOOD RETURN) 

MOV RO,R1 ;SAVE CONTENTS OF TSSR 

NEXT . ERRNO 

ERROF ERRNO,T194SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
TRAP CSERDF 
-WORD 846 
-WORD 1194SSR 
-WORD PKTSSR 

INC FATFLG sSET FATAL ERROR FLAG 

CKLOOP sLOOP ON ERROR, IF FLAG SET 
TRAP CscLP1 


Do a WRITE FORMAT to set IRESV4==>IRSTR = 0 


| 


VS - HARDWARE TESTS 
test 8: SUBTEST 4 LOOPBACK READ STROBE 


4833 057366 
062122 
062440 


000000 
016336 


002222 


012706 000001 
062122 
062440 


000000 
016336 


4869 057604 

4870 057610 
057610 104406 

4871 

4872 057612 

4873 057616 

4874 057622 


TEST 


2025: 


2103: 


222%: 
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sSET IRESV4==>IRSTR=0 

sSETUP TOPK2 FOR WRITE FORMAT 
sGET WRITE SUBSYSTEM COMMAND 
sSET THE PACK 


SEQ 0206 


PACKET 
ET ADORESS TO EXECUTE 


’ SR sWAIT FOR SSR TO SET 
202 s@@DFORCE ERROR IF FORCER=1 
BCS 210% sBR IF CARRY SET (GOOD RETURN) 
MOV RO,R1 SAVE CONTENTS OF TSSR 
NEXT . ERRNO 
ERROF ERRNO,T196SSR,PKTSSR 


sDEVICE FATAL SSR FAILED TO SET 
TRAP 


sWAIT FOR SSR TO SET 


ons 
. WORD #196SSR 
PKTSSR 
INC FATFLG sSET FATAL ERROR FLAG 
CKLOOP sLOOP ON ERROR, IF FLAG SET 
TRAP CS$CLPi 
Do e WRITE FORMAT to set IRESV4==>IRSTR = 
MOV OWF .I4RES ,RO S IRESV4eo>TRSTRo1 
JSR PC, TISWFMT sSETUP TOPK2 FOR WRITE ant oneal 
MOV @T19PK2 ,.R4 SGET WRITE SUBSYSTEM COMMAND P. 
MOV R4, TSOBCRS) sSET THE PACKET ADORESS TO OXECUTE. 
JSR PC ,.CHKTSSR sWAIT FOR SSR TO SET 
FORCE 222% s9@DFORCE ERROR IF FORCER=1 
.BCS 230% :6R IF CARRY SET (GOOD RETURN) 
MOV RO,R1 ;SAVE CONTENTS OF TSSR 
NEXT . ERRNO 
ERROF ERRNO,1T1986SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
TRAP CSEROF 
-WORD 850 
_— T196SSR 
PKTSSR 
INC FATFLG ;SET FATAL ERROR FLAG 
CKLOOP sLOOP ON ERROR, IF FLAG SET 
TRAP CSCLP1 
Do a READ FIFO with tape direction IN to read dete 
MOV #1, ;SET READ BYTE COUNT 


SET THE PACKET ADORESS TO EXECUTE 


F 282% s@@DFORCE ERROR IF FORCER=1 
BCS 290% :BR IF CARRY SET (GOOD RETURN) 
MOV RO,R1 sSAVE CONTENTS OF TSSR 
NEXT . ERRNO 
ERROF ERRNO,T196SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SCT 
TRAP CSEROF 
a T196SSR 
PKTSSR 
INC FATFLG ;SET FATAL ERROR FLAG 
CKLOOP sLOOP ON ERROR, IF FLAG = 
TRAP CsCLP1 


If Date read from _e NOT= to Dete sent Then Bate. Erro 
JSR PC, TLI9SETEXP sSET WORDS 0-7 

MOV @TISEXSTA,R1 iGET EXPECTED READ STA 
MOV OT198FSTA.R2 +GET RECV READ STATUS 


EXPOSRECY ¢ NOT TESTING) 





me 0 a -- -——-- 4 
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TSVS - HARDWARE TE SEQ 0207 
TEST 8: SUBTEST 4 LOOPBACK READ STROBE TEST 


4875 057626 013711 002312 MOV DATA,(R1) sSET EXPD WORD 06 = DATA 
4876 057632 016261 000002 MOV 2(R2),2¢R1) sSET EXPD WORD @9 = RECV (NOT TESTING) } 
4877 057640 005000 CLR RO sHIGH RECV ADDRESS FOR CKMSG2 

4878 057642 012701 062312 MOV @T19BFR,R1 sLOW RECV ADDRESS FOR CKMSG2 

4879 057646 012702 060022 MOV OT19EXP ,R2 sEXPD ADDRESS 

4880 057652 012703 000022 MOV 418, ,R3 sNUMBER OF BYTES TO COMPARE 

4881 057656 004737 011500 JSR PC ,CKMSG2 sEXPD EQUAL RECV? 

057 FORCERROR 302% ,NOTSSR ; 830 

4883 057672 103404 6cs 310% ;BR IF YES 

4664 057674 NEXT .ERRNO 

4865 057674 302%: ERRHRD ERRNO, TISRSTR,MSGSUB ;REPORT ERROR 
057674 104456 TRAP CSERHRD 
057676 001524 -WORD 852 
057700 061610 ‘ TIORSTR 
057702 013742 -WORD MSGSUB 

4866 057704 3108: CKL.OOP sLOOP ON ERROR, IF FLAG SET 
057704 104406 TRAP CS$CLP1 

4887 

4888 

4889 057706 FORCEXIT 355 ; 8380 

48690 057716 013703 002316 MOV TSTPTR,RS sRESTORE ery TSTBLK POINTER 

48691 057722 020327 003062 R3,0T sEND OF TSTBLK? 

4892 057726 103002 BHIS 355% ;BR IF YES 

4893 057730 000137 056744 100$ 300 ANOTHER TSTBLK PATTERN 

4894 057734 355%: 

4896 057734 ENOSUB s////4//4/14/74 END SUBTEST /////////7/ 
057734 L1007e: 

eave 057734 104403 TRAP CsESUB 

4898 057736 005737 002222 TST FATFLG sANY FATAL ERRORS ? 

4899 057742 001402 BEQ 360$ sBRANCH IF NOT 

4900 057744 004737 017202 JSR PC ,.CKDROP i TRY TO DROP THE UNIT 

aoe 057750 360$: 

4903 057750 EXIT TST s44444444/7/ EXIT TEST SASS /4/4/4/7/7/ 
057750 104432 TRAP CsExIT 
057752 -WORD 1L10066-. 

4904 

4905 

4906 3° 

4907 sLOCAL STORAGE FOR THIS TEST 

4908 :- 

4909 

wee 057754 000000 T19PREV: -WORD O sDRIVE SIGNAL 1-0 TRANSITION FLAG 

3° 

4912 LOOPBACK DRIVE SIGNAL TABLE 

4913 ; THIS TABLE IS USED BY TISCNVT TO SETUP 

ps ; A ORIVE PATTERN FROM THE TEST DATA INPUT PATTERN. 

1 F 

4916 ; WRITE CONTROL SIGNALS ARE OF FORM WC. XXX 

enh ; WRITE FORMAT SIGNALS ARE OF FORM WF .XXXX 

ge 

4919 057756 T19BFCTL: sWRITE CONTROL DRIVE SIGNALS 

4920 057756 000001 WC .IGO sI1GO==>IFPT DATA<O> 

4921 057760 000002 WC .IFEN sIFEN==>IFBY DATA<1> 

4922 057762 000004 WC. IRWU ; IRWU==>IRWO DATA<2> 





ASS <Q S/S SS SR sn 


bot - HARDWARE TE 
ST 68: SUBTEST 4 


4926 05 
929 


968 060640 
4969 060722 


4974 061331 
4975 061420 
4976 061503 
4977 061610 
4976 


4979 


STs 


000010 


LOOPBACK 
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READ STROBE TEST 


SEO 0208 
we Ww s IREW**>IDBY DATA<3> 
WF. IERASE e256. sIFAD*<>ILpP DATA<4> 
we. Ii TAD sITADie*>IOM DATA<S> 
WC. IOTAD sITADOe=>IRDY DATA<6> 
WC .IFAD sIERASE*«>ISPEED DATA<7> 
WF .IEDIT*#256 sIEDITe*>IHER ODATA<8> 
WF. TWFMe256. p IW Mees IF DATA<9> 
WF. IREVe256. sIREVee>ICER DATA<10> 
WF. IWRTe256. sIWRTe*>TIDENT DATA<11> 
WF. IHISP e256 sIMISPee>TEOT DATA<12> 
-WORD O sIRESV2 CUNUSED )DATA<13> 
-WORD O sIRESV1 CUNUSED )DATA<14> 
.WORD O sPARERR CUNTESTED )DATA<15> 
TLOMSK: sMASK OF UNTESTED BITS IN READ STATUS BYTES 
sUNTESTED BITS ARE SET T0 1 
-BYTE  *C<000> sBYTE O MASK 
BYTE *tC<340> iBYTE 1 MASK (PARERR , IRESV2, IRESV1) 
-BYTE *tC<017> s8YTE 2 (TIMER A, TIMER 6,UNDEF INED<1:0>) 
-BYTE sMAKE IT EVEN 
TISEXP: s;BEGIN — DATA BUFFER 
-WORD O sMESSAGE T 
.WORDB O sDATA FIELD t LENGTH 
-WORD O 
-WORD O 3XxSTO 
-WORD O sXST1 
-WORD O sxST2 
-WORD O 3sxST3 
WwOoPD Oo sXST4 (ALWAYS PRESENT FOR WRITE 


TISEXSTA: .BLKB 64. 


TI9EXEND: 


SUB.) 
sEXPECTED READ STATUS AND WRITE FIFO DATA 
sEND EXPECTED DATA BUFFER 


3¢ 
sLOCAL TEXT MESSAGES FOR TEST 


3 = 
TST19I0: 


TIORSTR;: .ASCIZ 
- EVEN 


-ASCIZ Pern aon t Bue Interfece Loopbeck' 
"WRITE CHARACTERISTICS Failed’ 
TE Ys (Write Miec) Failed’ 


(uri 
‘WRITE SUBSYSTEM (rite FIFO) Fei led’ 
‘WRITE SUBSYSTEM (Reed FIFO) Fai 


SUBSYSTEM cue iee Formet) Feiled' 

‘FIFO Stetus in WORD 69 preervers efter Initielize’ 

‘Read FIFO Dete not equel to Write FIFO . Dete is in WORD 66’ 
anon Fees ® wry yh petted. efter RESET TAPE: 
‘Read FIFO Dete not equel to Write FIFO Dete' 
‘FIFO Stetus hie WORD #9) Incorrect efter READ FIFO’ 
‘Tape Stetus 2 (in WORD @6) Incorrect efter RESET TAPE’ 
‘Control "Signal. Loopbeck Dete Error, Dete is in —_ 06° 
'Reed/Wr te botgbee Dete Error, Dete is in WORD 06 

‘poe tna Dete Error when strobed 


‘Loopbeck Dete Error when etrobed by Reed Strobe, Date is in WORD 06’ 


ne eee ee ee ee 


by Write strobe, Dete is in WORD 06’ 





3 
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TEST 8: SUBTEST 4 LOOPBACK READ STROBE TEST 
30 
4981 3° 
4962 : CLEAR MESSAGE BUFFER 
4983 3° 
4964 061714 TISCLRBUF : 
4965 061714 SAVREG 1 SAVE R1-RS UNTIL NEXT RETURN 
4966 061720 012701 062312 MOV @T19BFR,R1 1GET MESSAGE BUFFER ss 
49867 061724 012702 000120 MOV @T19BEND - T19BFR,R2 1SIZE OF MESSAGE BUFFER IN BYTES 
4968 061730 105021 108%: CLRB CR1)> sCLEAR A BYTE 
4969 061732 005302 DEC Re :DONE? 
4990 061734 003375 BGT 10% 36R IF NO 
4991 061736 000207 RTS PC sRETURN 
4392 
4993 i? 
4994 : SETUP T19PK2 PACKET FOR READ STATUS 
4995 - 
4996 061740 T19SRO0: 
4997 061740 004737 061714 JSR PC. TISCLRBUF sCLEAR MESSAGE BUFFER 
4996 061744 012700 062450 MOV @T190T2,R0 sWRITE SUBSYSTEM DATA BUFFER 
4999 061750 112720 000005 MOvVB oPu. ROSTATUS, (RO)> sSTORE READ STATUS COMMAND IN BSELO 
5000 061754 105010 CLRB (RO) sCLEAR BSEL1 
5001 061756 000207 RTS PC sRE TURN 
5003 
3° 
poss 3 SETUP T19PK2 PACKET FOR WRITE MISC Reset Tape Stetus F -FLOPS 
ie 
5006 061760 TIORSFIF : 
5007 061760 004737 061714 JSR PC, TISCLRBUF sCLEAR MESSAGE BUFFER ; 
S008 061764 012700 062450 MOV #T190T2,R0 sWRITE SUBSYSTEM DATA BUFFER 
$009 061770 112720 000010 MOvVB oPu. WMISC, CRO)>+ sSTORE WRITE MISCELLANEOUS IN BSELO 
3010 061774 112710 000030 MOVB ons. RSFIF IMS. RSTAP,CRO) ;STORE BSEL1 CLEAR FIFO CODES 
5011 062000 000207 RTS PC sRETURN 
S012 
5013 3° 
5014 3 SETUP T19PK2 PACKET FOR WRITE NPR 
5015 F 
$016 3 : 
ad 3 RO CONTAINS BSEL1 NPR DATA 
3 
5019 3 SETS NP.WRP SINCE IF O IT WRITES WRONG PARITY. 
a2 
$021 062002 T19SSNPR: 
S022 062002 004737 061714 JSR PC, TISCLRBUF sCLEAR MESSAGE BUFFER 
5023 062006 012701 062450 mov @T190T2,R1 SWRITE SUBSYSTEM DATA BUFFER 
5024 062012 112721 000011 MOVB OPU.WNPR,CR1)+ sSTORE WRITE NPR IN BSELO 
5025 062016 052700 000020 BIS ONP .WRP ,RO }DON' T WRITE WRONG PARTTY 
$026 062022 110011 MOvB RO,CR1) sSTORE NPR DATA IN BSEL1 
5027 062024 000207 NTS PC pRE TURN 
5028 
5029 3° 
ey s SETUP T19PK2 PACKET FOR READ FIFO 
3 
5032 s INPUT: 
ty F RO CONTAINS SEL2 BYTE COUNT 
g° 
5035 062026 TIORFIF: 


5036 062026 004737 061714 JSR PC, TLSCLRBUF sCLEAR MESSAGE BUFFER 


MACRO M1113 14- “we -64 15:55 


VS - HARDWARE TESTS 
test 6: SUBTEST a LOOPBACK READ STROBE TE 


012701 
112721 
110021 
000207 


RTS PC 


3° 
s CLEAR EXPECTED DATA MESSAGE BUFFER 
; - 


SEQ 0210 


sRETURN 


062450 MOV @T190T2,R1 ;WRITE SUBSYSTEM DATA BUFFER 
000003 MOVE = @PW.RFIFO,(R1)+ ;STORE READ FIFO IN BSELO 
MOVE SCRL)« iSTORE BYTE COUNT IN BSELI1 
RTS sRE TURN 
; SETUP T19PK2 PACKET FOR WRITE FIFO | 
; 
3; INPUT: 
; RO CONTAINS BYTE COUNT 
; Ri CONTAINS DATA PATTERN BLOCK ADDRESS 
he | 
TIOW IF: | 
SAVREG ;SAVE R1-RS UNTIL NEXT RETURN 
061714 JSR PC, TISCLRBUF ;CLEAR MESSAGE BUFFER 
062450 MOV @T190T2,R2 }WRITE SUBSYSTEM DATA BUFFER | 
000004 MOVE OPW. FIFO, (R2)> ;STORE WRITE FIFO IN BSELO 
MOVB RO, (R2)- 1STORE BYTE COUNT IN BSELI 
CLR (R2)e EAR SEL2 (UNUSED) 
108: MOVB (R1)+,(R2)- ISTORE DATA PATTERN BYTE 
DEC RO rDONE ALL BYTES? 
eGT 108 s8R IF NO 
RTS PC ; RETURN 
3¢ 
; SETUP TI9PK2 FOR WRITE CONTROL 
3 
3; INPUT: 
; RO CONTAINS DRIVING DATA PATTERN 
TIOWCTL: 
061714 JSR PC, TISCLREUF ;CLEAR MESSAGE BUFFER 
062450 MOV @Ti90T2,.R1 }WRITE SUBSYSTEM DATA BUFFER 
000006 MOVE  @PW.WCTL,(R1)> ;STORE WRITE CONTROL IN BSELO 
MOVB RO, (R1)> STORE DATA WORD IN BSEL1 
RTS ;RETURN 
3° 
; SETUP T19PK2 FOR WRITE FORMAT TRANSPORT REGISTER 
H 
3 INPUT: 
; RO CONTAINS DRIVING DATA PATTERN 
a= 
TLOWFMT: 
061714 PC, TISCLRBUF ;CLEAR MESSAGE BUFFER 
062450 HOV eTi90T2,R1 }WRITE SUBSYSTEM DATA BUFFER 
000007 MOVB .WFMT,CRL)+ ;STORE WRITE FORMAT IN BSELO 
MOVE .CRL)> ;STORE DATA WORD IN BSEL1 
RTS } RETURN 
3° 
; SETUP T19PK2 PACKET FOR WRITE MISC. INVERT EXTENDED FEATURES SWITCH 
T19SEXT: 
062450 MOV @T190T2,RO }WRITE SUBSYSTEM DATA BUFFER 
000010 MOVE @PW. MISC, (RO)> ;STORE WRITE MISCELLANEOUS IN BSELO 
000200 MOVB @MS..EXT, (RO) ;STORE INVERT EXTENDED FEATURES IN BSEL1 


HAROWARE TESTS 


TSVS - 
TEST 8: SUBTEST 4 LOOPBACK READ STROBE T 


S095 062160 012701 
5096 062164 012700 
105021 


005300 
5099 062174 003375 
5100 062176 000207 


5106 062200 012702 
5107 062204 012703 
5108 062210 012700 
5109 062214 012322 


$111 220 003375 
5112 062222 000207 


51 
5152 062270 
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060022 
000120 


060022 
062312 
000010 


TLOCLEXP; 
MOV 
MOV 

10$: CL 
DEC 
BGT 
RTS 


El 


@T19EXP sGET EXPD ADDRESS 
OTISEXEND. T19EXP ,RO 1GET EXPD SIZE 
(R1)+ sCLEAR A BYTE 

RO ? 

10% s8R IF NO 

PC sRETURN 


3¢ 
Set WORDS 0-7 of expd message BUFFER = to recv since not testing 


3 — 
TI9SSETEXP; 
MOV @T19EXP ,R2 
MOV @T196FR,RS 
MOV #6. ,RO 
5$: MOV CR3)+,CR2)+ 
DEC RO 
BGT 5$ 
RTS PC 
$ e 
3; CONVERT 
3 
; INPUTS: 
: 
3 RO TEST PATTERN 
3 
3 IMPLICIT INPUTS: 
3 
3 T19BF CTL 
o 
3 OUTPUTS 
Hy 
3 RO 
é 
TL9CNVT : 
SAVREG 
MOV @TiI9SBFCTL .R1 
CLR R2 
MOV #16. ,R3 
10% ROR RO 
Bcc $ 
BIS (R1),R2 
20% TST CR1)-> 
OEC R3 
BGT 10% 
MOV R2,RO 
RTS PC 


- CONTAINS WRITE CONTROL / WRITE FORMAT CONVERSION BITS 


sGET EXPD 

1GET READ STATUS RECV BUFFER 
sSET WORDS 0-7 EXP=RECV 

1SET EXPD=RECV 


sO00NE WORDS 0-7 WORDS? 
i8R IF NO 
sRETURN 


A TEST PATTERN DATA WORD TO LOOPBACK DRIVE SIGNALS 


- LOW BYTE CONTAINS WRITE CONTROL DATA 
- HIGH BYTE CONTAINS WRITE FORMAT DATA 


.*¢,¢10>€177770 
F 

sWRITE CHARACTERISTICS COMMAND PACKET 
3 
TISPACKET: 


sSAVE R1-RS UNTIL NEXT RETURN 
sCONVERSION TABLE ADDRESS 
sINIT RESULT OF CONVERSION 
sBIT COUNT 

sIS a Ta EQUAL TO 1? 


5 
sSET CONVERTED BIT 


sPOINT TO NEXT BIT IN CONVERSION TABLE 


3 ? 

:8R IF NO 
sCOPY RESULT 
;RETURN 


sCOMMAND PACKET FOR TEST 


SEQ 0211 


TSVS - HARDWARE TESTS MACRO M1113 14-JUN-84 15:55 SEQ 0212 
TEST 8: SUBTEST 4 LOOPBACK READ STROBE TEST | 


5153 062270 100004 -WORD 100004 sWRITE gy beets, COMMAND, WITH ACK 
5154 062272 062300 -WORD TI9DATA sADORESS OF CHARACTERISTICS BLOCK 
5155 062274 000000 «WORD O 
sis 062276 000012 . WORD 10. sMINIMUM MESSAGE PACKET SIZE 
1 
5158 062300 TLODATA: sCHARACTERISTICS DATA BLOCK 
5159 062300 062312 -WORD T19BFR sADDRESS OF MESSAGE BUFFER 
5160 062302 -WORD O 
5161 062304 000024 “WORD 20. sLENGTH OF MESSAGE BUFFER | 
5162 062306 -WORD 0 sESS,ENB,EAI,ER 
tery 062310 000007 -WORD 7 sEXTENDED FEATURES UNIT NO. 
164 
5165 
ples sMESSAGE BUFFER FOR ALL TEST 8 COMMANDS 
1 
$168 062312 T19BFR: sBEGIN “ey BUFFER 
5169 062312 000000 -WORD 0 sMESSAGE TYPE 
5170 062314 000000 -WORD O SOATA FIELO LENGTH 
5171 062316 000000 -WORD 0 A 
$5172 062320 000000 -WORD 0 3XSTO 
5173 062322 000000 -WORD 0 sxST1 
5174 062324 000000 «WORD O sxST2 
5175 062326 000000 -WORD O sxST3 
5176 062330 000000 -WORD 0 sXST4 (ALWAYS PRESENT FOR WRITE Sarat 
5177 062332 TISBFSTA: .BLKB 64. sREAD STATUS AND WRITE FIFO BUFFE 
an 062432 T19BEND: 7END OF MESSAGE BUFFER 
$ 
ioe sWRITE SUBSYSTEM READ STATUS COMMAND PACKET 
° 
5183 062440 .*<,¢10>€177770 
5185 062440 T19PK2: 
5186 062440 100006 -WORD P.WRTSUB!P.ACK sWRITE SUBSYSTEM WITH ACK 
5187 062442 062450 -WORD 17190T2 sLOW ADDRESS OF DATA BLOCK 
5188 062444 000000 -WORD 0O sHIGH ADORESS OF DATA BLOCK 
tH 062446 000012 WORD 10. sMINIMUM MESSAGE PACKET SIZE 
5191 062450 T190Te: sDATA BLOCK 
5192 062450 000 -BYTE 0O ;BSELO 
5193 062451 000 BYTE 0O ;BSEL1 
5194 062452 000000 0 sSEL2 
or 062454 BLKB 64 sWRITE FIFO DATA OUTPUT BUFFER 
5197 
5198 062554 ENOTST 
062554 L10066: 
062554 104401 TRAP CsETST 
5199 .SBTTL TEST 9: READ/WRITE DATA PARITY TEST 
5200 3¢e 
5201 s TEST DESCRIPTION: 
5202 Hy 
5203 : This test verifies thet the Write Dete Parity generator 
5204 : end the Reed Dete Perity checker operate properly. The 
5205 F Transport Bue signel loopbeck mode is enebled end a 
5206 : Set Wrong perity function is executed. Then ver ious 
5207 ; Write Subsystem Memory functions ere aS to 
5208 ; write dete to end from the FIFO in loopbeck mode 


The program then checks to insure e Read Date parity 
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TEST 9: READ/WRITE DATA PARITY TEST : 
5210 : error occurred. 
S211 : A Reset FIFO is done and the Read Dete parity 
$212 $ error bit ie egein tested to insure it cleared. 
$213 ; Finelly @ Clear wrong parity function is done 
5214 : end it is verified the date word can pass in loopback 
$215 F mode without setting Reed Dete perity error. 
5216 3 
$217 ; TEST STEPS: 
5218 3 
$219 ; REPEAT FOR LOOPCNT 
$220 ; BEGIN 
$221 ; Write to TSSR ister to soft initielize the controller 
S222 F Do WRITE CHARACTERISTICS to check for Extended Features Switch 
S223 PF If Extended Features Herdwere Switch Clear then: 
S224 3 Write tem Write Miscelleneous to Set Extended Features. 
5225 $ Do WRITE CHARACTERISTICS to select reserved unit 7 end setup BUFFER 
$226 ; REPEAT FOR ALL TEST PATTERNS IN TSTBLK TABLE 
$227 ; BEGIN 
$228 : (@ Verify Write Perity Sete Perity Error «) 
5229 $ Do e WRITE NPR to se es hate ee 
5230 : end SET Write pet Bans 
$231 : Do e WRITE FORMAT to set Svae=sIRSTR * 1 (sets read strobe high) 
$232 3 Do e WRITE FIFO with byte count equel to 1 and Tape direction OUT 
5233 F Do a READ — with stot sph fH 3 OUT to load tape out write letch 
S234 ; (this is when CIW) is set) 
$235 3 Do e WRITE FORMAT to to eet 3 Sv422>IRSTR = O (sets read strobe low) 
5236 : (Reed Strobe sets PAR IN H (Perity Error)) 
$237 $ Do e WRITE FORMAT to set IRESV4==>IRSTR = 1 (sets read strobe high) 
5238 3 Do a Write Subsystem READ STATUS 
$239 $ If Read Dete perity error NOT*1 Then Print Error 
$ Do e Write Miec to RESET FIFO 
$241 $ Do e Write Subsystem READ STATUS 
Pose 3 If Read Dete perity error NOT=0 Then Print Error 
3 
5244 F (* Verify Dete cen be trensferred without a Parity Error ¢) 
$245 3 Do e WRITE FORMAT to set IRESV4==>IRSTR = 1 (sets read strobe high) 
5246 3 Do e WRITE NPR to set loopback and tape direction OUT 
5247 $ end CLEAR Write Wrong Perit 
5248 ; Do e waITe F FIFO with byte count polis i to 1 end Tape direction OUT 
5249 : Do e READ FIFO with tape direction on OUT ¢ © loed tape out write latch 
5250 : Do e WRITE FORMAT to set TRESVace>IRSTR = 0 rw mag reed strobe low) 
$251 3 (Reed Strobe should NOT set PAR IN H [Perity Error) here) 
S252 ; Do e@ WRITE FORMAT to eet IRESV4=“>IRSTR = 1 (sets read strobe high) 
5253 ; Do ea Write Subsystem READ STATUS 
a : If Reed Dete perity error NOT=0 Then Print Error 
; 
5256 : ENO 
5257 t-- 
5258 
5259 
5260 062556 BGNTST 
062556 T9:; 
5265 062556 012700 065142 MOV #TST20ID,RO sASCII MESSAGE TO IDENTIFY TEST 
5266 004737 JSR PC, TSTSETUP 300 INITIAL TEST SETUP 


062562 016510 
062566 012737 000012 002216 
062574 


MOV #10. ,LOOPCNT 


sPERFORM 10 ITERATIONS 





$270 ete 
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015774 


002222 


002222 


066340 
010662 


000012 


; 
10%: 


12s: 


22%: 


a a 


BGNSUB8 WAAAAAAAAALAL am amet: AAA 


TRAP Cs6SuUB 
Write to TSSR register to soft initialize the controller 


JSR PC, SOF INIT sWRITE TO TSSR TO + oy INITIALIZE 
BCS 10% s8R IF SOFT INIT OKAY 
MOV RO,R1 sSAVE CONTENTS OF TSSR 
ERRDOF ERRNO, SFIERR,SFIMSG {DEVICE FATAL DURING INIT 
TRAP CSEROF 
. WORD 
-WORD SFIERR 
SF IMSG 
Do — _ee to check for Extended Features Switch 
CLR sCLEAR FATAL ERROR FLAG 


Q @T2OPACKET, Ra sGET an ADORESS OF COMMAND PACKET 


PC ,WRTCHR :00 WR TE CHARACTERISTICS COMMAND 
F RROR 12% 3 8G0F ERROR IF FORCER=1 
BCS 15% sR IF CARRY SET (GOOD RETURN) 
ave RO,R1 sSAVE CONTENTS OF TSSR 
ERROF ERRNO, T20SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
TRAP CSEROF 
-WORD 901 
oe T20SSR 
PKTSSR 
INC FATFLG sSET FATAL ERROR FLAG 
CKLOOP sLOOP ON ERROR, IF FLAG = 
TRAP CsCLP1 


If Extended Feetures Herdware Switch Cleer then: 

Do Write noevgsen Write Miscelleneous to Set Extended Features. 

@T2Q0BFR.R sMESSAGE BUFFER Ss 

BIT @X2. EXTF, XST2C(R1) }EXTENDED FEATURES SWITCH SET? 
BNE 30 s6R IF YES 
sSETUP PACKET FOR WRITE MISC INVERT 
;GET WRITE SUBSYSTEM COMMAND PACKET 
sSET THE PACKET ADORESS TO EXECUTE 
sWAIT FOR SSR TO SET 
ORCE ERROR IF FORCER=1 


SEQ 0214 


FORCERROR 22% 5 
Bcs 30% 38R IF CARRY SET (GOOD RETURN) 
MOV RO,R1 sSAVE CONTENTS OF TSSR 
NEXT .ERRNO 
ERROF ERRNO, T202SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
TRAP CSEROF 
.WORD 902 
— T202SSR 
PKTSSR 
INC FATFLG 3SET FATAL ERROR FLAG 
CKLOOP 3LOOP ON ERROR, IF FLAG SET 
TRAP CS$CLP1 
Do WRITE CHARACTERISTICS to select reserved = 7 
MOV @T20PACKET ,R4 3GET THE ADORESS OF COMMAND PACKET 
JSR PC, WRT :D0 WRITE Pas Net Lt COMMAND 
F 42% :@B0FORCE ERROR IF FORCER=1 
6cs 50% ER IF CARRY SET (GOOD ReTURN) 
MOV RO,R1 sSAVE CONTENTS OF TSSR 
NEXT . ERRNO 
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TEST 9: READ/WRITE DATA PARITY TEST 
5311 063012 
06301 


063020 
5312 063022 005237 002222 


2 
5319 063040 042737 Mhese 002312 


5320 063046 010337 00231 
$321 
5322 
$323 012700 000100 


012046 
5335 063136 005237 002222 


5338 063144 012700 000001 
5339 063150 004737 066222 
5340 063154 012704 066510 

000000 


5342 063164 004737 016336 


5348 063220 005237 002222 


5351 063226 012700 000001 
S352 063232 012701 002312 


42%: 


508: 


Il 


SEQ 0215 
ERROF ERRNO, T20SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
TRAP CSEROF 
-WORD 903 
«WORD T2OSSR 
PKTSSR 


INC FATFLG sSET FATAL ERROR FLAG 
CKLOOP ;LOOP ON ERROR, IF FLAG SET 
TRAP CSCLPi 


; REPEAT FOR ~~ ee IN TSTBLK TABLE 


100$: 


112%: 


MOV STBLK, sGeT ee PATTERN ADDRESS 
MOV (R3)+,DATA sGET A_TEST PATTERN 

BIC @tC<377>,DATA sDATA IS BYTE 

MOV R3,TSTP SETUP CURRENT TSTBLK POINTER 


3 
Do a WRITE NPR to set loopback and tape direction OUT and 
and SET anise Wrong toe 
MOV onP. we OUTRO P T TAPE DIRECTION OUT 
ISET LOOPBACK 
ISET WRITE WRONG ge Bt C INVERTED ) 


BIS @NP .LOOP RO 
sSETUP T20PK2 FOR WRIT 
sGET WRITE SUBSYSTEM COMMAND PACKET 


MCV R4, TSOBCRS) sSET THE PACKET ADDRESS TO EXECUTE 
PC ,.CHKTSSR ;WAIT FOR SSR TO SET 
102% s@@0FORCE ERROR IF FORCER=1 
BCS 105% sBR IF CARRY SET (GOOD RETURN) 


MOV RO,R1 sSAVE CONTENTS OF TSSR 

NEXT . ERRNO 

ERRDF ERRNO, T204SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
TRAP CSEROF 
-WORD 904 
-WORD T204SSR 
-WORD PKTSSR 


INC FATFLG sSET FATAL ERROR F 
CKLOOP sL 


LAG 
OOP ON ERROR, IF FLAG SET 


TRAP CsCLP1 
Do e WRITE FORMAT to set IRESV4==>IRSTR = a, read aan high) 
MOV OF .I4RES ,RO SIRESV4e=>IRSTR * 
JSR PC.T MT SE TUP T20PK2 FOR WRITE FORMAT 
MOV @T20PK2 ,R4 sGET WRITE SUBSYSTEM COMMAND PACKET 
MOV R4, TSOBCRS) sSET THE PACKET ADORESS TO EXECUTE 
JSR PC, SSR sWAIT FOR SSR TO SET 
F 112s s@GDFORCE ERROR IF FORCER=1 
BCS 120% :BR IF CARRY SET (GOOD RETURN) 
MOV RO,R1 sSAVE CONTENTS OF TSSR 
NEXT . ERRNO 
ERRNO, T208SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
TRAP CsEROF 
. 905 
-WORD T208SSR 
«WORD PKTSSR 


;SET FATAL ERROR FLAG 
;LOOP ON ERROR, IF FLAG SET 

TRAP C$CLP1 
1 and Tape direction OUT 


INC FATFLG 
CKLOOP 


Do e WRITE FIFO with byte count equal to 
MOV #1,RO0 SURITE 1 
MOV @DATA,R1 


1 BYTE 
sFIFO WRITE DATA ADDRESS 
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5353 063236 
S4 063242 


5373 063356 


5377 063374 
37 


SiS 


004737 
012704 
010465 
004737 


103407 
010001 
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066166 
066510 
000000 


016336 


002222 


000001 
066146 
066510 
000000 


016336 


002222 


066222 
066510 
000000 


016336 


002222 


000001 
066222 


sSETUP T20PK2 FOR WRITE FIFO 
sGET WRITE SUBSYSTEM COMMAND PACKET 


MOV R4, TSOBCRS) sSET THE PACKET ADDRESS TO EXECUTE 
JSR PC,CHKTSSR sWAIT FOR SSR TO SET 
FORCERROR 152$ hah ERROR p FORCER=1 
Bcs 160$ s6R IF CARRY SET (GOOD RETURN) 
MOV RO,R1 I SAVE CONTENTS OF TSSR 
NEXT .ERRNO 
152$: ERROF ERRNO, T205SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
RAP CSERDF 
o 906 
-WORD T205SSR 
-WORD PKTSSR 
INC FATFLG sSET FATAL ERROR FLAG 
160$: CKLOOP sLOOP ON ERROR, IF FLAG SET 
TRAP CSCLP1 
3 Do e READ FIFO with tape direction OuT to load tape out write latch 
: (this is when wrong perity (IW) is set) 
MOV #1,RO0 sSET READ BYTE COUNT 


sSETUP T20PK2 FOR READ FIFO 
iGET WRITE SUBSYSTEM COMMAND PACKET 


MOV R4, TSOBCRS) 3SET THE PACKET _ TO EXECUTE 
JSR PC, CHKTSSR sWAIT FOR SSR TO SE 
FORCERROR 172$ 3 8G0F ORCE ERROR IF FORCER=1 
BCS 180% 3s6R IF CARRY SET (GOOD RETURN) 
MOV RO,R1 ;SAVE CONTENTS OF TSSR 
NEXT. ERRNO 
172$: ERROF ERRNO, T206SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
TRAP CSERDF 
-WORD 907 
— T206SSR 
PKTSSR 
INC FATFLG 3SET FATAL ERROR FLAG 
180$: CKLOOP 3LOOP ON ERROR, IF FLAG 4 
TRAP C$CLP1 
F Do ea WRITE FORMAT to set IRESV4==>IRSTR = O (sets read strobe low) 
; (Read Strobe sets PAR IN H [(Perity Error)) 
CLR RO sIRESV4==>IRSTR = O 


sSETUP T20PK2 FOR WRITE FORMAT 
sGET — a i COMMAND PACKET 


MOV R4, TSOBCRS) sSET THE P T ADORESS TO EXECUTE 
JSR ’ SSR sWAIT FOR SSR TO SET 
FORCERROR 192% s@@0FORCE ERROR IF FORCER=1 
BCS 200% sBR IF CARRY SET (GOOD RETURN) 
MOV RO,R1 sSAVE CONTENTS OF TSSR 
NEXT . ERRNO 
192%: ERRDF ERRNO, T208SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
TRAP CSEROF 
. 908 
. T208SSR 
-WORD PKTSSR 
INC FATFLG sSET FATAL ERROR FLAG 
200%: CKLOOP sLOOP ON ERROR, IF FLAG SET 


TRAP CSCLPi 
: Do ea WRITE FORMAT to set IRESV4==>IRSTR = 1 (sets read strobe high) 
MOV @WF .I4RES,RO sIRESV4==>IRSTR = 1 
JSR PC, T2OWFMT sSETUP T20PK2 FOR WRITE FORMAT 


PMY on iaiera: Anchen: En Bis Sia Landis oa ae 
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TEST 9: READ/WRITE DATA PARITY TEST 

012704 066510 
000000 

5397 063476 004737 016336 


5403 063532 005237 002222 


$405 

5406 063540 004737 066106 

S407 063544 012704 066510 
000000 


5409 063554 004737 016336 


$433 063712 


5434 
5435 063714 012700 000020 
5436 063720 004737 066242 


2123: 


232s: 


260%: 


MOV @T20PK2 ,R4 

MOV R4, TSOBCRS) 

JSR PC, CHKTSSR 

F 212$ 

BCcS 220% 

MOY RO,R1 

NEXT . ERRNO 

ERRDF ERRNO, T208SSR,PKTSSR 
INC FATFLG 

CKLOOP 

Do e Write oo a READ STATUS 
JSR PC,T20 

MOV @T20PK2, R4 

MOV R4, TSDBCRS) 

JSR PC. CHKTSSR 

F RROR 232% 

BCS 240% 

MOV RO,R1 

NEXT . ERRNO 

ERROF ERRNO, T203SSR,PKTSSR 
INC FATFLG 

CKLOOP 

If Read Dete perity error NOT=1 
JSR PC, T2OSETEXP 

MOV @T20EXSTA,R1 

MOV @T20BF STA,R2 

MOV CR2),CR1) 

MOV 2(R2), 2(R1) 

BIS #Si. PARERR, CR1) 

CLR RO 

MOV #T20BFR,R1 

MOV @T20EXP ,R2 

MOV #20. .R 

JSR PC, 

F 252% ,NOTSSR 

6CcS 260% 

NEXT .E 


RRNO 
ERRHRD ERRNO, T2OSWP,MSGSTAT 


CKLOOP 


Do e Write Misc to RESET FIFO 
MOV OMS .RSFIF ,RO 


JSR 


PC, T2OWMISC 


SEQ 0217 


sGET WRITE SUBSYSTEM COMMAND PACKET 
sSET THE PACKET ADDRESS TO EXECUTE 
sWAIT FOR SSR nee SET 

; gh oe - — 
sBR IF CARRY SET (GOOD RETURN) 
SSAVE CONTENTS” OF TSSR 


sDEVICE FATAL SSR FAILED TO SET 
TRAP CsEROF 


-WORD 909 
-WORD T208SSR 
PKTSSR 
sSET FATAL ERROR FLAG 
sLOOP ON ERROR, IF FLAG SET 
TRAP CsCLP1 


sSETUP PACKET FOR READ STATUS 
sGET WRITE SUBSYSTEM COMMAND PACKET 
sSET THE PACKET ADDRESS TO EXECUTE 
sWAIT FOR SSR TO SE7 

IF FORCER=1 


s8G0FORCE ERROR 
sBR IF CARRY SET (GOOD RETURN) 
; SAVE CONTENTS OF TSSR 


sDEVICE FATAL SSR FAILED TO SET 
TRAP 


CSEROF 
-WORD 910 
-WORD T203SSR 
-WORD PKTSSR 
sSET FATAL ERROR FLAG 
sLOOP ON ERROR, IF FLAG . 
CsCLP1 


Then Print Error 
sSET WORDS 0-7 eget (NOT TESTING) 
iGET EXPECTED — STATUS 


Tus 
XPD WORD #8 = RECY T 


ADORE 
sNUMBER OF BYTES TO COMPARE 
sEXPD EQUAL RECV? 


3880 
3B8R IF YES 
;REPORT ERROR 
TRAP CSERHRD 
.WORD 911 
" T20SWP 
.WORD MSGSTAT 
;LOOF ON ERROR, IF FLAG SET 
TRAP CSCLP1 


sSET RESET FIFO COMMAND 
sSETUP T20PK2 FOR WRITE MISC 


5437 063724 
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066510 
000000 
016336 


002222 


002222 


2823: 


SEQ 0218 


sGET WRITE SUBSYSTEM COMMAND PACKET 
sSET THE PACKET ADDRESS TO EXECUTE 
sWAIT FOR SSR TO SET 

s@G0FORCE ERROR IF FORCER=1 
s6R IF CARRY SET (GOOD RETURN) 
sSAVE CONTENTS OF TSSR 


sDEVICE FATAL SSR FAILED TO SET 
TRAP 


CSEROF 
-WORD 912 
—_— T202SSR 
PKTSSR 
sSET FATAL ERROR FLAG 
sLOOP ON ERROR, IF FLAG - 
CsCLP1 


T WORDS 0-7 a serie (NOT TESTING) 
1GET EXPECTED READ STA 
sGET RECV READ STATUS 
sSET EXPD WORD #6 = RECV TEMP 

T EXPD WORD @9 = RECV (NOT TESTED) 


20 
FOR CKMSG2 
sLOW RECV ADORESS FOR CKMSG2 


sEXPD ADORESS 

sNUMBER OF BYTES TO COMPARE 

sEXPD EQUAL RECV? 

; 230 

3;8R IF YES 

;REPORT ERROR 
TRAP CSERHRD 
-WORD 913 
-WORD T2ORSF 
.WORD MSGSTAT 

;LOO0P ON ERROR, IF FLAG Se 

CSCLP1 


Dete cen be trensferred without e Per ity ne. “¥ 


FORMAT to set IRESV4-=>IRSTR «= 


1 (sets reed strobe high) 
IRESV4s*>IASTR = 1 
sSETUP T20PK2 FOR WRITE FORMAT 
sGET WRITE SUBSYSTEM COMMAND PACKET 
sSET THE PACKET ADORESS TO EXECUTE 
sWAIT FOR SSR TO SET 

cerns ERROR IF FORCER=1 
;8R IF CARRY SET (GOOD RETURN) 
: SAVE CONTENTS OF TSSR 


MOV @T20PK2 ,R4 

MOV R4, TSOBCRS) 

JSR »CHKTSSR 

F 262% 

eBcs 2908 

MOV RO,R1 

NEXT . ERRNO 

ERROF ERRNO, T202SSR,PKTSSR 
INC FATFLG 

CKL 

Do @ Write Subsystem READ STATUS 
If Reed Dete perity error NOT*0 Then Print Error 
JSR PC, T2OSETEXP sSE 
MOV @T20EXSTA,R1 

MOV @T20BFSTA,R2 

MOV CR2),C€R1) 

MOV 2cr2), 2cR1) 

BIC #S1. PARERR, (R1) 

CLR RO 

MOV @T20BFR,R1 

MOV @T20EXP ,R2 

MOV #20. ,.R3 

JSR ° 

F 302% ,NOTSSR 
Bcs 320% 

NEXT .ERRNO 

ERRHRD ERRNO, TOORSF .MSGSTAT 
CKLOOP 

(* Ver 

Do e CRT 

MOV OF .I4RES RO 

JSR PC, T2OUFMT 

MOV @T20PK2 ,R4 

MOV R4, TSOBCRS) 

JSR PC ,CHKTSSR 
FORCERROR 3328 

Bcs 340% 

MOV RO,R1 

NEXT. 

ERROF ERRNO, T208SSR,PKTSSR 


INC 
CKLOOP 


FATFLG 


sDEVICE FATAL SSR FAILED TO SET 
TRAP 


CSEROF 
-WORD 914 
-WORD T208SSR 
-WORD PKTSSR 
sSET FATAL ERROR FLAG 
sLOOP ON ERROR, IF FLAG st. 
CsCLP} 
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5480 

5461 064156 012700 000100 

5462 064162 052700 000040 

5483 064166 052700 000020 

5484 064172 004737 066126 

5485 064176 012704 066510 
064202 000000 


5486 
5487 064206 004737 016536 


é 
: 
g 
8 


326 
5507 064330 005237 002222 
5508 064334 

334 104406 
5509 
5510 064336 012700 000001 
$512 346 012704 066510 

000000 


5514 064356 004737 016336 


: g 
gE PRREREREERRERE 


0644 012046 
5520 064412 005237 002222 


3528: 


372%: 


392%: 


4003: 


Do e WRITE NPR to set loopbeck end a direction OUT end 

end CLEAR Write Wrong Perit 
MOV OP . OUT RO ISET. TAPE DIRECTION OuT 
BIS @P .LOOP ,RO sSET LOOPBACK 
BIS OP .URP RO sCLEAR WRITE WRONG PARITY “ee 
JSR PC, T20UNPR sSETUP T20PK2 FOR WRITE NPR 
MOV @T20PK2 ,R4 iGET WRITE SUBSYSTEM COMMAND PACKET 
MOV R4, TSOB(RS) ;SET THE PACKET ADORESS TO EXECUTE 
JSR PC ,.CHKTSSR sWAIT FOR SSR TO SET 
F 3528 s@G0FORCE ERROR IF FORCER=-1 
6cs 3608 ;8R IF CARRY SET (GOOD RETURN) 
~ RO,R1 sSAVE CONTENTS OF TSSR 


. ERRNO 
ERROF ERRNO, T204SSR,PKTSSR 


sDEVICE FATA SSR FAILED TO SET 
TRAP Cc 


$EROF 
-WORD 915 
— T204SSR 
PKTSSR 
INC FATFLG sSET FATAL ERROR FLAG 
CKLOOP sLOOP ON ERROR, IF FLAG =. ee 
Do e WRITE FIFO with byte count equel to 1 and Tepe Sicatas QuT 
HOV. #1,R0 sWRITE 1 BYTE 
MOV @ODATA,R1 sFIFO WRITE DATA ADORESS 
JSR PC , T20uF IF sSETUW T20PK2 FOR WRITE FIFO 
MOV @T20PK2 ,.R4 sGET WRITE SUBSYSTEM COMMAND PACKE 
MOV R4, TSOBCRS) ;SET THE PACKET ADORESS TO EXECUTE 
JSR PC ,.CHKTSSR sWAIT FOR SSR TO SET 
F 3728 Bete FORCER=1 
6cs 3808 36R IF CARRY SET —— RETURN) 
MOV RO,R1 ;SAVE CONTENTS OF T 
NEXT . ERRNO 
ERRDOF ERRNO, T205SSR.PKTSSR ;DEVICE FATAL SSR FAILED TO SET P 
.WORD 916 
.WORD T205SSR 
.WORD PKTSSR 
INC FATFLS 3;SET FATAL ERROR FLAG 
CKL sLOOP ON ERROR. IF FLAG SET 
TRAP CsCcLPi 
Do e READ FIFO with tape direction QUT to tepe out write letch 
MOV #1,R0 SET READ BYTE 
JSR » T2ORF IF :SETUP T20PK2 FOR READ FIFO 
MOV @T20PK2 ,R4 s;GET WRITE SUBSYS 
MOV R4, TSOB(RS) 3SET THE PACKET ADORESS TO EXECUTE 
JSR PC ,.CHKTSSR sWAIT FOR SSR TO SET 
F 392% s@G0FORCE ERROR IF FORCER=-1 
6cs 400% ;6R IF CARRY SET (GOOD RETURN) 
~ RO,R1 ;SAVE CONTENTS OF TSSR 
xT. 
ERROF ERRNO, T206SSR,PKTSSR ;DEVICE FATAL SSR FAILED TO SET 
TRAP CSEROF 
-WORD 917 
.WORD T206SSR 
.WORD PKTSSR 
INC FATFLG ;SET FATAL ERROR FLAG 
CKL ;LOOP ON ERROR, IF FLAG SET 
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064416 


STS 


104406 
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066222 
066510 


000000 
016336 


002222 


066106 
066510 
000000 


016336 


002222 


412$: 


432%: 


452%: 


4603: 


Ni 


SEQ 0220 


TRAP CSC. Pi 


Do e WRITE FORMAT to set IRESV4==>IRSTR = 0 (sets read strobe low) 


(Read Strobe sets PAR IN 


H (Perity Error)) 
sIRESV4<=<>IRSTR = O 
sSETUP T20PK2 FOR WRITE FORMAT 
}GET WRITE SUBSYSTEM COMMAND PACKET 
sSET THE PACKET ADORESS TO EXECUTE 
sWAIT FOR SSR TO SET 

s@GDFORCE ERROR IF FORCER=1 
:6R IF CARRY SET (GOOD RETURN) 
sSAVE CONTENTS OF TSSR 


sDEVICE FATAL SSR FAILED TO SET 
TRAP 


CSEROF 
. WORD 18 
-WORD T208SSR 
PKTSSR 
sSET FATAL ERROR FLAG 
sLOOP ON ERROR, IF FLAG = 
TRAP CSCLP1 


+ 8 > FORMAT a set IRESV4==>IRSTR = RS reed strobe high) 


CLR 
JSR PC, T20WFMT 
MOV @T20PK2 ,R4 
MOV R4, TSOBCRS) 
JSR PC, CHKTSSR 
F RROR 4123 
Bcs 420% 
MOV RO,R1 
NEXT . ERRNO 
ERRDF ERRNO, T208SSR,PKTSSR 
INC FATFLG 
CKLOOP 
OWF .I4RES, 
OR PC, TOOWFMT 
MOV @T20PK2 ,R4 
MOV R4, TSOBCRS) 
JSR PC ,CHKTSSR 
F 432$ 
BCS 440$ 
MOV RO,R1 
NEXT. 
ERROF ERRNO, T208SSR,PKTSSR 
INC FATFLG 
CKLOOP 
Do e Write + oo + a READ STATUS 
JSR 
MOV oraones, ne 
MOV R4, TSOBCRS) 
JSR ,»CHKTSSR 
F 4523 
Bcs 460$ 
MOV RO,R1 
NEXT . ERRNO 
ERROF ERRNO, T203SSR,PKTSSR 
INC FATFLG 
CKLOOP 


SIRESV4==>IRSTR bd 

;SETUP T20PK2 FOR WRITE FORMAT 
sGET WRITE SUBSYSTEM COMMAND PACKET 
sSET THE PACKET oO TO EXECUTE 
sWAIT FOR SSR TO SE 


3s @BDF ORCE ERROR 
;8R IF CARRY SET (GOOD RETURN) 
SAVE CONTENTS OF TSSR 


sDEVICE FATAL SSR FAILED TO SET 
TRAP 


CSEROF 
. WORD 19 
——- T2086SSR 
PKTSSR 
;SET FATAL ERROR FLAG 
sLOOP ON ERROR, IF FLAG SET 
TRAP CsCLP1 


sSETUP PACKET FOR READ STATUS 
3;GET WRITE SUBSYSTEM COMMAND PACKET 
iSET THE PACKET ADDRESS TO EXECUTE 
sWAIT FOR SSR TO SET 

s;@G0FORCE ERROR IF FORCER=1 
;BR IF CARRY SET (GOOD RETURN) 
s;SAVE CONTENTS OF TSSR 


sDEVICE FATAL SSR FAILED TO SET 
TRAP 


CSEROF 
-WORD 920 
a T203SSR 
PKTSSR 
sSET FATAL ERROR FLAG 
;LOOP ON ERROR, IF FL°G ot 
TRAP CSCLP} 


If Reed Dete perity error NOT*O Then Print Error 


TSVS - HAROWARE TESTS 
TEST 9: READ/WRITE DATA PARITY TEST 


5605 065016 


5606 
5607 065016 
5606 065017 


5609 065020 
5610 065021 
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066314 
065042 


002316 
003062 


472%: 


SS5$: 


5608: 


565%: 





MOV @T2OEXSTA,R1 
MOV @T20BFSTA,R2 
MOV (R2),(R1) 

MOV 2(R2),2(R1) 
BIC 1. PARERR, (R1) 
CLR 

MOV @T2O0BFR,R1 

MOV @TQOEXP ,R2 

MOV #20. ,.R3 

JSR . 

F 472% ,NOTSSR 
ecs 

NEXT . ERRNO 


ERRHRD ERRNO, T2OCWP ,.MSGSTAT 


CKLOOP 


FORCEXIT 
MOV 


CMP 
BHIS 
JP 


EXIT 


FATFLG 
560% 

PC .CKDROP 
PC, TSTLOOP 
565% 
T16L00P 
TST 


3° 
sLOCAL STORAGE FOR THIS TEST 


T2OMSK ; 


t€<917> 
0 


rr ee ee ee ee 


SEQ 0221 


SET WORDS 0-7 Sap arate (NOT TESTING) 


ADORE 
sNUMBER OF BYTES TO COMPARE 
sEXPD EQUAL RECV? 


yaad 
36R IF VES 
sREPORT ERROR 
TRAP CSERHRD 
-WORD 921 
- WORD T20CWR 
-WORD MSGSTAT 
sLOOP ON ERROR, IF FLAG SET 
TRAP CSCLPi 


;fan 
}RESTORE CURRENT TSTBLK POINTER 
sEND OF T ss 
3s6R IF YE 
300 WOTYER TSTBLK PATTERN 
s4AAAAA1SAA41 END SIBTEST S/S/S////// 
L10074: 
TRAP CsESuB 
sANY FATAL ERRORS ? 
sBRANCH IF NOT 
sTRY TO DROP THE UNIT 
300 ITERATIONS? 
3B8R IF NO 
sLOOP UNTIL ITERATIONS DONE 
s44AA444444 ERIT TEST SASSAASAS/ 
TRAP 


CsExIT 
L10073-. 


sMASK OF UNTESTED BITS IN READ STATUS 
rd BITS ARE SET TO 1 

s8YTE O MASK 

s8YTE 1 MASK (PARERR, IRESV2, IRESV1) 
‘BYTE 3 (TIMER A, TIMER B, UNDEF INED<1:0>) 
sMAKE IT EVEN 


en a ee rR = - 
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eat 9: READ/WRITE DATA PARITY TEST 

5611 
5612 065022 T20E XP; sBEGIN EXPECTED DATA BUFFER 
5613 065022 000000 .WORD O sMESSAGE TYPE 
5614 065024 000000 -WORD O sDATA FIELO LENGTH 
5615 065026 000000 -WORD O sRBPCR 
5616 065030 000000 -WORD O +XSTO 
5617 065032 000000 -WORD O +XST1 
5618 065034 000000 .WORD O sxST2 
5619 065036 000000 . WORD 0 3XST3 
5620 065040 000000 -WORD O sXST4 (ALWAYS PRESENT FOR WRITE SUB. 
5621 065042 T2O0EXSTA: .BLKB 64. sEXPECTED READ STATUS AND WRITE FIFO pata 
= 065142 T20E XEND : sEND EXPECTED DATA BUFFER 
562 s° 
5624 ;LOCAL TEXT MESSAGES FOR TEST 
5625 t- 
5627 065142 122 145 141 TST20ID: -ASCIZ ‘Read/Write Date Parity’ 
5626 065171 127 122 111 T20SSR: .ASCIZ ‘WRITE CHARACTERISTICS Fei led' 
5629 065226 127 122 111 T202SSR:.ASCIZ ‘WRITE SUBSYSTEM (Write Miec) Fei led’ 

065272 127 111 T203SSR:.ASCIZ ‘WRITE SUBSYSTEM (Read Stetus) Fai led’ 
5631 065337 127 122 111 T2046SSR:. "WRITE SUBSYSTEM (Write ) Feiled’ 

127 122 111 te ‘WRITE SUBSYSTEM (Write 0) Feiled' 
127 122 111 T206SSR:. ‘WRITE SUBSY Reed FIFO) Fei led’ 

5634 065511 127 122 111 T206SSR:. "WRITE SUBSYSTEM (Write Formet) Fei led’ 
5635 065557 122 145 141 T20SWP: .ASCIZ ‘Read Dete Perity Error (PARERR) Failed to Set efter Write Per ity’ 
5636 065666 122 145 141 T20RSF: .ASCIZ 


‘ ‘Reed Dete Perity Error (PARERR) Feiled to Clear efter RESET FIFO’ 
5637 065767 122 145 141 T20CWP: .ASCIZ ‘Reed Dete Perity Error (PARERR) occurred in Dete Loopbeck' 


S640 3° 
5641 : CLEAR MESSAGE BUFFER 
a 
5643 066062 T : 3 
066062 SAVREG sSAVE R1-RS UNTIL NEXT RETURN 
5645 066066 012701 066362 MOV @T20BFR,.R1 sGET MESSAGE BUFFER ADDRESS 
5646 066072 012702 000120 MOV @T20BEND - T20BFR .R2 sSIZE OF MESSAGE BUFFER IN BYTES 
5647 066076 105021 108: CLRB CR1)> sCLEAR A BYTE 
5648 065100 005302 DEC R2 sO0NE? 
5649 066102 003375 BGT 108 3s6R IF NO 
5650 066104 000207 RTS PC sRETURN 
5651 
S652 3¢ 
my s SETUP T20PK2 PACKET FOR READ STATUS 
ge 
5655 066106 T20SRD : 
5656 066106 004737 066062 JSR PC, T20CLRBUF te 5 MESSAGE BUFFER 
5657 066112 012700 066520 MOV @T200T 2.R0 WRITE peg ek, DATA BUFFER 
5656 066116 112720 000005 MOVB oPu. RDSTATUS, CRO)> STORE READ STATUS COMMAND IN BSELO 
5659 066122 105010 CLRB CRO) sCLEAR BSEL1 
5660 066124 000207 RTS PC ;RETURN 
5661 
5662 
5663 :¢ 
aoe s SETUP T20PK2 PACKET FOR WRITE NPR 
$ 
5666 s INPUT: 


5667 : "RO CONTAINS BSEL1 NPR DATA 


TSVS - HARDWARE TESTS 
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004737 
012701 
112721 
110011 
000207 


004737 
012701 
112721 
110021 
000207 
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T2OWNPR ; 
066062 JSR PC, T2OCLRBUF 
066520 MOV @T200T2,R1 
000011 MOVB OPW. WNPR,CR1)> 
a RO,C(R1) 


3¢ 
; SETUP T20PK2 PACKET FOR READ FIFO 


sCLEAR MESSAGE BUFFER 

sWRITE SUBSYSTEM DATA — 
sSTORE WRITE NPR IN BSE 

;STORE NPR DATA IN eSELi. 

+ RETURN 


3; INPUT: 
: RO CONTAINS SEL2 BYTE COUNT 
3 = 
T2ORF IF : 
066062 JSR PC, TZOCLRBUF sCLEAR MESSAGE BUFFER 
066520 MOV @T200T2,R1 sWRITE SUBSYSTEM DATA BUFFER 
000003 MOVB oPu. RFIFO, (R1)> sSTORE READ FIFO IN BSELO 
MOvVB RO,CR1)> 1 STORE BYTE COUNT IN BSEL1 
RTS PC sRETURN 
3¢ 
; SETUP T20PK2 PACKET FOR WRITE FIFO 
3 
3 INPUT: 
3 RO CONTAINS BYTE COUNT 
F R1 CONTAINS DATA PATTERN BLOCK ADORESS 
he 
T20WF IF : 
SAVREG sSAVE R1-RS UNTIL NEXT RETURN 
JSR PC,T sCLEAR MESSAGE BUFFER 
066520 MOV @T200T2,R2 sWRITE SUBSYSTEM DATA BUFFER 
GOOGOS MOvB OPu .WFIFO,(R2)>+ sSTORE WRITE FIFO IN BSELO 
eC R2)0 sSTORE BYTE COUNT IN BSEL1 
CLR (R2)+ sCLEAR SEL2 (UNUSED) 
108: MOvB CR1)+,CR2)- | STORE DATA A BYTE 
DEC RO sO0ONE ALL BYTES? 
BGT 108 ;8R IF NO 
RTS PC sRET 


3 SETUP T20PK2 FOR WRITE FORMAT TRANSPORT REGISTER 


3 INPUT: 
F RO CONTAINS ORIVING DATA PATTERN 
od 
T2OWFMT: 
066062 JSR PC, T2Z0CLRBUF 
066520 MOV @T200T2,R1i 
000007 MOvB OP. WMT, CRI)» 
Move RO,CR1)-+ 
RTS PC 


; 

s SETUP T20PK2 PACKET FOR WRITE MISC. 
; 

; RO CONTAINS WRITE MISC DATA 

; 


sCLEAR MESSAGE BUFFER 

sWRITE SUBSYSTEM DATA BUFFER 
sSTORE WRITE FORMAT IN BSELO 
sSTORE DATA WORD IN BSEL1 
sRE TURN 


SEQ 0223 





an ee oe ee —— 


E2 
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TEST 9: READ/WRITE DATA PARITY TEST 
5725 066242 T2OWMISC: 
066242 012701 066520 MOV #T200T2,R1 sWRITE SUBSYSTEM DATA BUFFER 
5727 066246 112721 000010 MOVE OPW. WMISC,CR1)+ sSTORE WRITE MISCELLANEOUS IN BSELO 
5728 066252 110011 MOVB RO,CR1) sSTORE INVERT EXTENDED FEATURES IN BSEL1 
5729 066254 7 RTS PC sRETURN 
57 3¢ 
5731 : SETUP T20PK2 PACKET FOR WRITE MISC. INVERT EXTENDED FEATURES SWITCH 
5732 he 
5733 066256 T20SEXT: 
5734 066256 012700 066520 MOV @T200T2,RO sWRITE SUBSYSTEM DATA BUFFER 
5735 066262 112720 000010 MOVB OP. WMISC ,CRO)> sSTORE WRITE MISCELLANEOUS IN BSELO 
066266 112710 000200 MOVB OMS .EXT, CRO) sSTORE INVERT EXTENDED FEATURES IN BSEL1 
5737 066272 RTS PC sRETURN 
5738 3° 
5739 ; CLEAR EXPECTED DATA MESSAGE BUFFER 
5740 ie 
5741 066274 T2O0CLEXP : 
5742 066274 012701 065022 MOV @T20EXP sGET EXPD ADDRESS 
5743 066300 012700 000120 MOV ST SOEXEND T20EXP ,RO iGET EXPO SIZE 
5744 066304 105021 10%: Cu (R1)+ sCLEAR A BYTE 
5745 066306 005300 DEC RO 3DONE? 
5746 066310 003375 BGT 10% sBR IF NO 
5747 066312 000207 RTS PC sRETURN 
5748 
5749 3¢ 
deny sSet WORDS 0-7 of expd message BUFFER = to recv since not testing 
he 
S752 066314 T2OSETEXP : 
5753 066314 012702 065022 @T2O0EXP ,R2 3;GET EXPD 
5754 066320 012703 066362 @T20BFR,R3 ;GET READ STATUS RECV BUFFER 
066324 012700 000010 MOV #6. ,RO sSET WORDS 0-7 EXP=RECV 
5756 066330 012322 S$: MOV (R3)+,CR2)+ sSET EXPO=RECV 
5757 066332 DEC RO sD0NE WORDS 0-7 WORDS? 
5758 066334 003375 BGT 53 sBR IF NO 
pees 066336 000207 RTS PC sRETURN 
5761 
5762 
5766 3 
pose sWRITE CHARACTERISTICS COMMAND PACKET 
5 
5769 066340 T2O0PACKET : sCOMMAND PACKET FOR TEST 
5770 066340 1 -WORD 100004 SWRITE CHARACTERISTICS COMMAND, WITH ACK 
5771 066342 066350 -WORD T20DATA sADORESS OF CHARACTERISTICS BLOCK 
5772 066344 -WORD O 
pers 066346 000012 -WORD 10. sMINIMUM MESSAGE PACKET SIZE 
5775 066350 T2ODATA: sCHARACTERISTICS DATA BLOCK 
5776 066350 066362 -WORD T2OBFR sADORESS OF MESSAGE BUFFER 
5777 066352 000000 «WORD O 
5778 066354 000024 -WORD 20. sLENGTH 4 MESSAGE BUFFER 
5779 066356 000000 -WORD O sESS,ENB,EAI,E 
are 066360 000007 .WORD 7 s EXTENDED FEATURES UNIT NO. 
5762 
5763 sMESSAGE BUFFER FOR ALL TEST 17 COMMANDS 
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TEST 9: READ/WRITE DATA PARITY TEST 
5785 066362 


066624 104401 


SEQ 0225 


T2OBFR: sBEGIN MESSAGE BUFFER 

.WORD O sMESSAGE TYPE 

. WORD 0 sDATA FIELD LENGTH 

-WORD O sRBPCR 

. WORD 0 3XSTO 

. WORD 0 sXST1 

-WORD O +xST2 

.WORD 0 3XST3 

. WORD i?) sXST4 CALWAYS PRESENT FOR WRITE SUBSYSTEM 
T20BFSTA: .BLKB 64. sREAD STATUS AND WRITE FIFO BUFFER 
T20BEND : sEND OF MESSAGE BUFFER 


Hy 
;WRITE SUBSYSTEM READ STATUS COMMAND PACKET 
! . =<, 610>€177770 


T20PKe : 
-WORD P.WRTSUB!P.ACK sWRITE SUBSYSTEM WITH ACK 
“WORD T200T2 sLOW ADDRESS OF DATA BLOCK 
-WORD 0 sHIGH ADDRESS OF DATA BLOCK 
-WORD 10. sMINIMUM MESSAGE PACKET SIZE 
T200T2: sDATA BLOCK 
BYTE 0O sBSELO 
BYTE 0 sBSEL1 
-WORD 0 sSEL2 
-BLKB 864. sWRITE FIFO DATA OUTPUT BUFFER 
ENOTST 


L10073: 
TRAP CsETST 
-SBTTL TEST 10: MANUAL INTERVENTION 


sTHE MANUAL INTERVENTION TEST IS A STANDALONE ROUTINE (NOT REALLY A “TEST”) 
sTHAT ALLOWS THE OPERATOR TO CHE FUNCTIONS OF 

3; THE SUBSYSTEM THAT CANNOT BE MANIPULA AM ALONE. 

sTHIS ROUTINE IS STARTED, IT FIRST PRINTS OUT A MENU OF SELECTABLE 
sSUBTESTS AND THEN WAITS FOR THE OPERATOR TO TYPE IN A SELECTION CODE. 

T TO THE DIAGNOSTIC SUPERVISOR 


sARE B 
; SELECTION CODES AND SUBROUTINES ARE: 


EACH MENU ITEM CORRESPONDS TO A SUBTEST, AS FOLLOWS: 


; 

; 

; CODE ROUTINE 

; 

; te) HELP. PRINTS THIS MENU 

; 1 TURN ON ALL M7196 LED INDICATORS 
; 2 TURN OFF ALL M7196 LED INDICATORS 
: 3 OFFLINE/ONLINE ATTENTION TEST 

; 6 WRITE-PROTECT TEST 

; 5 INITIATE Lewes gH SERVO on 
: 6 PRINT EXTENDED TRANSPORT STATUS 

; 7 EXIT CRETURN TO SUPERVISOR) 

3 

; 

3 

; 








~—— +--+ a nn ee ee ee ee ee 


Ge 
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TSVS - 
TEST 10: MANUAL INTERVENTION 


; 
sPRINTS OUT THE MENU ON THE CONSOLE TERMINAL. 


; CAUSES ALL THREE LED INDICATORS ON THE M7196 MODULE 
:TO BE ILLUMINATED. AFTER INITIATING THIS ROUTINE, THE OPERATOR 
:SHOULD OBSERVE THE LED'S AND VERIFY THAT THEY ARE INDEED ah Ae 


MEMORY 
;SET THE FORCE WRONG PARITY FLIP-FLOP, WHICH SERVES TO DRIVE THE 
"PROCESSOR NOT OK” LED. THEN IT ENTERS A LOOP THAT CONTINUALLY 
iWRITES THE LOW BYTE OF TSOB AND READS THE TSSR. THESE LATTER TWO 
1OPERA TIONS WILL CAUSE THE "NOT SSR” AND “DRIVING BUS” LED'S TO 

-- THEY ARE NOT REALLY LIT AT ALL TIMES BUT SHOULD APPEAR 
REASONABLY VISIBLE. 


: 
sINITIALIZES THE CONTROLLER TO CAUSE ALL LED'S TO 
sEXTINGUISH. 


S THIS ROUTINE INITIALIZES THE CONTROLLER, ISSUES A 
sWRITE wy y ICS COMMAND TO ENABLE gilt. INTERRUPTS, 


sISSUES A COMMAND, A MESSAGE ON THE 
INSTRUCTING THE OPERAT TOGGLE THE ON-LINE 

sSWITCH ON THE TRANSPORT, THEN WAITS FOR AN ATTENTION INTERRUPT 

3 TRANSPGRT TRANSITI -LINE TO OFF-LINE OR 


THE 
sVICE-VERSA, AN ATTENTION INTERRUPT SHOULD BE GENERATED. THE PROGRAM 
sWILL REPORT THE INTERRUPT AND THE CURRENT STATE OF THE TRANSPORT. 
sTHE OPERATOR SHOULD VERIFY THAT THE REPORTED STATE MATCHES THE 
SSTATE INDICATED BY THE LED ON THE FRONT PANEL OF THE TRANSPORT. 
sIN ADDITION, WHEN THE TRANSPORT IS PLACED OFF-LINE, THE PROGRAM 
sISSUES A SEQUENCE OF TAPE-MOTION COMMANDS Nagy 2 WRITE, POSITION, ETC. 
AND VERIFIES THAT, FOR EACH COMMAND, FUNCTION REJECT TERMINATION 
ata ALONG WITH THE NON-EXECUTABLE FUNCTION (NEF) ERROR BIT BEING 
sSET. 


3 
sTHIS ROUTINE INSTRUCTS THE OPERATOR TO MOUNT A SCRATCH 
sTAPE REEL THAT DOES NOT HAVE A WRITE- bare poe RING INSTALLED, THEN 
iMATTS FOR THE OPERATOR TO RESPOND THAT THIS HAS BEEN ACCOMPLISHED. 
RESPONSE, THE PROGRAM VERIFIES THAT THE 
A WRITE-PROTECTED STATUS, THEN ATTEMPTS TO WRITE DATA ON THE 
sTAPE AND EXPECTS THE APPROPRIATE ERROR TERMINATION INDICATING THAT 


sTHE WRITE FUNCTION COULD NOT BE PERFORMED BECAUSE THE REEL IS 
sWRITE-PROTECTED. IF THE APPROPRIATE TERMINATION IS NOT RECEIVED, 
AN ERROR IS REPORTED. 


SINSTRUCTS THE Kg my T) PLACE THE TAPE TRANSPORT(S) 

sON-LINE (IF ANY ARE OFF-LINE) THEN ATTEMPTS TO PERFORM AN EXTENDED 
sSTATUS READOUT. FOR EACH TRANSPORT EQUIPPED WITH THIS FEATURE, 
sTHE PROGRAM FORMATS AND PRINTS OUT THE RESULTING STATUS. IF THE 
joey a ate EQUIPPED WIT THIS FEATURE, A MESSAGE INDICATING 
s SUCH 
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He 
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TEST 10: MANUAL INTERVENTION 
| 
5899 3 
5900 ; | 
5901 ; 
5902 ; 
5903 066626 BGNTST 
066626 T10:: 
5908 066626 RFLAGS RO sGET OPERATOR FLAGS 
066626 104421 TRAP C$RFLA 
5909 066630 001403 BEQ 21% s6R, IF OK TO RUN 
5910 066632 012700 072210 MOV @T3BENE ,RO :"TEST NOT EXECUTED” 
5911 066636 000402 BR 33 3JUMP IF NOT FIRST TEST 
5912 066640 21%: | 
5913 066640 012700 073325 MOV @T38ID0,RO sTEST ID MESSAGE 
5914 066644 004737 016510 3$: JSR PC, TSTSETUP 300 THE COMMON SETUP 
5915 066650 004737 020500 JSR PC, CHKMAN sIS MANUAL INTERVE ob oy ALLOWED? 
5916 066654 103402 ecs eos 36R, IF MANUAL INTER ALLOWED 
5917 0666656 000137 071410 JMP 64$ ; JU IF NOT ALLOWED 
5918 066662 22%: 
5922 066662 005037 002222 2s: CLR FATFLG s;CLEAR THE FATAL ERROR FLAG 
5923 066666 012737 176750 071422 MOV #65000. , T38DLY ;SET UP DELAY COUNTER 
5924 066674 004737 015774 S$: JSR PC, SOF INIT 3:00 A SOFT INIT 
5925 066700 103427 6cSs 23% sBRANCH IF OK 
5926 066702 010001 MOV RO,R1 sCONTENTS OF TSSR REGISTER 
5927 066704 032701 000200 BIT @SSR,R1 sCHECK FOR TSSR SET 
5928 066710 001023 BNE 23% sKEEP GOING IF NOT SET 
5929 066712 DELAY 250 sCALL DELAY ROUTINE 
066712 012727 000250 MOV 0250 ,(PC)+ 
066716 000000 -WORD O 
066720 013727 002116 MOV LSOLY,(PC)+ 
066724 000000 -WORD O 
066726 005367 177772 DEC —7 
066732 001375 BNE 
066734 005367 177756 DEC 32 PC) 
066740 001367 BNE .-20 
5930 066742 005337 071422 DEC T38DLY sBUMP COUNTER DOWN 
5931 066746 001352 BNE 5% sBR, IF MORE TIME LEFT 
5932 066750 ERROF ERRNO,SFIERR,SFIMSG sREPORT FATAL ERROR 
066750 104455 TRAP CSEROF 
066752 001751 -WORD 1001 
066754 003652 -WORD SFIERR 
066756 012034 .WORD SFIMSG 
5933 066760 012700 073352 23%: MOV @MIMENU ,RO sMENU OF MANUAL INTERVENTIONS 
5934 066764 012701 000006 MOV #6 ,R1 sMAXIMUM ALLOWED SELECTION 
5935 066770 004737 020256 JSR PC ,GETSEL 3GO GET THE OPERATORS SELECTION 
5936 066774 010004 MOV RO,R4 3GET NUMBER FROM ROUTINE 
5937 066776 ASL 4 sCONVERT TO WORD OFFSET 
5936 067000 000174 067004 JMP @63(R4) TO PROPER LOOP 
5939 067004 066662 6%: -WORD 2% sRETYPE THE 
5940 067006 067022 -WORD 10% 3s 1 TURN ON LED'S 
5941 067010 067304 -WORD 15% : 2 TURN OFF LED'S 
7012 -WORD 20% ; 3 ONLINE ATTENTION 
5943 067014 070172 -WORD 25% 3 4 WRITE PROTECT 
5944 067016 071126 -WORD 35% 3 5 EXTENDED TRANSPORT STATUS 
5945 067020 071404 -WORD 63% s 6 LEAVE THE TEST 
5946 067022 10%: PRINTF #T36MS2 sTELL OPERATOR TO CNTRL-C FOR EXIT 
067022 012746 073221 MOV @T38MS2, -C(SP> 


067026 012746 000001 MOV #1, -(SP) 





067252 104441 TRAP C$SPRI 
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TEST 10: MANUAL INTERVENTION 
067032 010600 MOV SP RO 
067034 104417 TRAP = CSPNTF 
067036 062706 000004 ADD 64,SP 
5947 067042 004737 073756 JSR PC, T3QREST sSET PACKET TO INITIAL VALUES 
5948 067046 004737 015774 JSR PC, SOF INIT 300 SOFT INIT OF CONTROLLER 
5949 067052 103405 BCS 100$ :8R IF SOFT INIT = OK | 
5953 067054 010001 MOV RO,R1 }SAVE CONTENTS OF TSSR 
5954 067056 ERRDF ERRNO,SFIERR,SFIMSG ;DEVICE FATAL ERROR DURING INIT 
067056 104455 TRAP  — CSEROF | 
067060 001752 .WORD 1002 
067062 003652 -WORD SFIERR 
067064 012034 “WORD  SFIMSG | 
5955 067066 013737 002202 072150 100%: MOV UNITN, T380SW :SET UNIT NUMBER 
5956 
|  §957 067074 012704 072130 MOV @T3BPK2,.R4 ;SUBROUTINE NEEDS PACKET ADORESS 
|  §958 067100 004737 010662 JSR PC, WRTCHR sISSUE WRITE CHARACTERISTICS 
5959 067104 103405 Bcs 1108 :8R, IF C ISSUED OK 
|  §963 067106 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 
| $964 067110 ERRHRD ERRNO, WRTMSG, SFIMSG ;WRITE CHARACTERISTISC FAILED 
067110 104456 TRAP  § CSERHRO 
067112 001753 .WORD 1003 
067114 005056 ;WORD  WRTMSG 
067116 012034 .WORD  SFIMSG 
| $965 067120 1108: 
5966 067120 112737 000000 071441 MOVB 00,7388S1 ;CLEAR BIT 04 
5967 067126 112737 000011 071440 MOVB  11,7388S0 ;WRITE MISC COMMAND 
3968 067134 012704 071430 MOV @T3BPACKET ,R4 ;SET UP NEW WRT. SUBSYS MEM. COMMAND 
| 3 
| 3370 ;NOTE: THIS COMMAND TURNS ON THE PROCESSOR FAIL LED 
+ 
| $972 067140 010465 000000 MOV R4, TSOB(RS) ;SET THE PACKET ADDRESS 
5973 067144 004737 016336 JSR PC ,CHKTSSR ;WAIT FOR SSR TO SET 
5974 067150 103405 acs 150$ ;8R IF CARRY SET (GOOD RETURN) 
5975 067152 010001 MOV RO.R1 ;SAVE CONTENTS OF TSSR 
5979 067154 ERROF ERRNO, T38SSR,PKTSSR DEVICE FATAL SSR FAILED To SET 
067154 104455 CSEROF 
067156 001754 TWORD 1004 
| 067160 072626 “WORD T38SSR 
| 067162 012046 "WORD  PKTSSR 
5980 067164 150%: | CKLOOP sLOOP ON ERROR, IF FLAG SET 
| 067164 104406 TRAP = C$CLP1 
| $981 067166 SETPRI #PRIO7 ;RAISE THE PRIORITY 
067166 012700 000340 MOV @PRIO7,RO 
067172 104441 TRAP C$SPRI 
| §982 067174 005037 071414 CLR TTION2 sASSUME INTERRUPTS ARE ENABLED 
5983 067200 032737 000100 177560 BIT #100, @@TTICSR ;ARE TTI INTERRUPTS ON ? 
5984 067206 001005 BNE 701% ;BRANCH IF YES 
5985 067210 005237 071414 INC TTION2 sFLAG SET IF INTERRUPTS OFF 
5986 067214 052737 000100 177560 BIS 6100, @@TTICSR sENABLE INTERRUPTS 
| $987 067222 012701 000060 701$: MOV @TTIVEC,R1 ;START OF TTI VECTORS 
| 5988 067226 011137 071416 MOV (R1), TVSAV2 ;SAVE THE CURRENT TTI VECTOR 
| 59869 067232 012721 070710 MOV #5908 ,(R1)+ ;SET NEW INTERRUPT ROUTINE 
| §990 067236 011137 071420 MOV (RL), TPSAV2 ;SAVE THE VECTOR PRIORITY 
| $991 067242 012711 000340 MOV @PRIO7,(R1) sUSE PRIORITY SEVEN 
5992 067246 SETPRI #PRIOO ;LOWER INTERRUPT BR LEVEL 
067246 012700 000000 MOV @PRIOO, RO 
| 





Je 
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5993 067254 012701 177777 MOV #-1,R1 sDATA TO WRITE TO TSOB 
5994 067260 000240 12s: NOP sALLOW OPERATOR TO TYPE tC 
5995 067262 012702 001750 MOV #1000. ,R2 sSET-UP_ INNER LOOP 
5996 067266 110165 000000 14%: MOVB R1, TSOBCRS) sWRITE DATA TO TSOB 
5997 067272 016500 000002 MOV TSSRCRS),RO sREAD TSSR 
5998 067276 005302 DEC Re sREDUCE INNER COUNT 
5999 067300 001572 BNE 14% sLOOP TILL EXPIRES 
6000 067302 000766 BR 12s sLOOP UNTIL HALTED 
6001 
6002 067304 15%: PRINTF #T38MS2 TYPE CNTL C TO EXIT 
067304 012746 073221 MOV @T3EMS2, -( SP) 
067310 012746 000001 MOV #1,-C(SP) 
067314 010600 MOV SPR 
067316 104417 TRAP CSPNTF 
067320 062706 000004 ADO #4,SP 
6003 067324 004737 015774 JSR PC, SOF INIT 300 SOFT INIT OF CONTROLLER 
6004 067330 103405 BCS 200% s8R IF SOFT INIT = OK 


6008 067332 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 

6009 067334 ERRDF ERRNO,SFIERR,SFIMSG sDEVICE FATAL ERROR DURING INIT 
067334 104455 TRAP CSEROF 
067336 001755 -WORD 1005 
067340 003652 -WORD SFIERR 
067342 012034 -WORG SFIMSG 

6010 067344 200$: 

6011 067344 013737 002202 072150 MOV UNITN, T380SW ;SET UNIT NUMBER 

6012 067352 012704 072130 MOV @T3BPK2 ,R4 sSUBROUTINE NEEDS PACKET ADDRESS 

6013 067356 004737 010662 JSR PC ,WRICHR s ISSUE WRITE CHARACTERISTICS 

6014 067362 103405 BCcS 210% 38R, IF COMMAND ISSUED OK 

6018 067364 010001 MOV RO,R1 ;SAVE CONTENTS OF TSSR 

6019 067366 ERRHRD ERRNO,WRTMSG, SFIMSG ;sWRITE CHARACTERISTISC FAILED 
067366 104456 TRAP CSERHRD 
067370 001756 -WORD 1006 
067372 005056 -«WORD WRTMSG 
067374 012034 .WORD SFIMSG 

6020 § O000060606660600000600606600600600606060000000000000000000000086 

6021 $ 

coe 3 THIS WRITE SUB-SYSTEM MEMORY COMMAND JUST HOLDS THE LEDS OFF 

3 

6024 | O666009000600060000000006000000000606600606000000000600000000000080008 

6025 067376 210%: 

6026 067376 112737 000000 071441 MOVB #0, 17388S1 sCLEAR BIT 04 

6027 067404 112737 000025 071440 MOVB $25, T388S0 sSTOP DRIVE TEST 22 

6028 067412 012704 071430 MOV @TSEPACKET ,R4 sSET UP NEW WRT. SUBSYS MEM. COMMAND 

6029 067416 010465 000000 MOV R4, TSOBCRS) sSET THE PACKET ADDRESS 

6030 067422 004737 016336 JSR PC ,.CHKTSSR sWAIT FOR SSR TO SET 

6031 067426 103405 BcSs 250% 3B8R IF CARRY SET (GOOD RETURN) 

6032 067430 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 

6036 067432 ERROF ERRNO, T38SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
067432 104455 TRAP CSEROF 
067434 001757 -WORD 1007 
067436 072626 .WORD T38SSR 
067440 012046 .WORD PKTSSR 

6037 067442 250%: CKLOOP ;LOOP ON ERROR, IF FLAG SET 
067442 104406 TRAP CSCLP1 

6038 067444 SETPRI #PRIO7 sRAISE THE PRIORITY 
067444 012700 000340 MOV @PRIO7,RO 


067450 104441 TRAP Cs$SPRI 


| 
| 
| 
| 
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012737 


MACRO M1113 


071414 
000100 


071414 
000100 
000060 
071416 
070710 
071420 
000340 


000000 


073221 


002224 
015774 


072160 
000000 
016250 
000002 
000100 
000100 
000200 


177560 


177560 


710$: 


2608: 


310$: 
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(R1), TVSAV2 
#590 ,(R1)> 
(R1), TPSAV2 
@PRIO7,(CR1) 
@PRIOO 


260% 


@T38MS2 


@PRIOO 


INTRECV 
PC, SOF INIT 
300% 


RO,R1 
ERRNO, SFIERR , SFIMSG 


UNITN, T380SW 
#BITS, TS6EAI 
@T3EPK2 ,R4 
PC ,WRTCHR 
310% 


RO,R1 
ERRNO, WRTMSG , SF IMSG 


OT3EPK3 ,R4 
R4, V2 Naa 


Re 
TSSRCRS),R1 
@OFL ,R1 


SEQ 0230 


sASSUME INTERRUPTS ARE ENABLED 
sARE TTI INTERRUPTS ON ? 
sBRANCH IF YES 

SFLAG SET IF INTERRUPTS OFF 
sENABLE INTERRUPTS 

sSTART OF TTI VECTORS 

sSAVE THE CURRENT TTI VECTOR 
sSET NEW INTERRUPT ROUTINE 
sSAVE THE VECTOR PRIORITY 
sUSE PRIORITY SEVEN 

sLOWER INTERRUPT BR LEVEL 


MOV @PRIOO,RO 


TRAP C$SPRI 
sALLOW CNTL C 
;LOOP UNTIL STOPPED 


;TELL’'EM WHAT TO TYPE 


MOV @TSEMS2, -C SP) 
MOV + ale 


MOV ° 
TRAP CSPNTF 


ADO 64,SP 
sLOWER PRIORITY TO ALLOW INTERRUPTS 
MOV @PR 


TRAP C$SPRI- 

sCLEAR INTERRUPT RECEIVED FLAG 

300 SOFT INIT OF CONTROLLER 

:BR IF T INIT 

sSAVE CONTENTS OF TSSR 

;DEVICE FATAL ERROR — Pais 

CSEROF 

TORO 1008 
-WORD SFIERR 
-WORD SFIMSG 

sSET UNIT NUMBER IN PACKET 

sENABLE ATTENTION eect 

sSUBROUTINE NEEDS PACKET ADDRESS 

S ISSUE WRITE CHARACTERISTICS 

sBR, or ISSUED OK 

sSAVE CONTENTS OF TSSR 

sWRITE CHARACTERISTISC ty 
TRAP CSERHRD 
. WORD 
-WORD WRTMSG 
-WORD SFIMSG 


sSET UP WEW PACKET FOR MESS BUF REL 
sMESSAGE BUFFER RELEASE ,ACK,CVC=1 CMO 
sWAIT FOR SSR TO SET 
SURE ALL IS CLEAR 
TATUS 


SET 
s8R, IF OFL IS NOT SET 
sSET OFL IN EXPECTED 
sSET UP EXPECTED 
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6085 067710 


ce) 
6115 070140 


MACRO M1113 14-JUN-84 15:55 


TESTS 
INTERVENTION 


000340 
005037 071414 

000100 
005237 071414 
000100 
000060 
071416 
070710 
071420 
012711 000340 


002224 


072716 
012746 000001 


072746 


177560 


177560 


350$: 


7208: 


360%: 


370$%: 


CMP 
BEQ 
ERRHRO 


CKLOOP 
PRINTF 


PRINTF 


Le 


R2,R1 
350 


@T38MS1 
@T38MS2 


@PRIO7 


TTION2 
#100, @@TTICSR 
720% 


TTION2 
ene a 
TIVEC,R1 

(Ri), TVSAV2 


@PRIO7,(R1) 
@PRIOO 


INTRECV 
370% 


360% 
@TS6INT 


TSSRCRS),R1 
OOFL .R1 


390% 


$ 
ERRNO, T38SST ,PKTSSR 


sIS EVERYTHING OK 
sBR, IF ALL IS WELL 


/DEVICE FATAL SSR FAILED. o SET 


TORO 

. WORD 

. WORD 
sLOOP ON ERROR, IF FLAG = 


AP 
;TELL OPERATOR TO TOGGLE © cs 


MOV 
MOV 
TRAP 


ADD 
sTELL OPERATOR TO DO tC —s 


MOV 

MOV 

TRAP 
sRAISE THE PRIORITY 


TRAP 


sASSUME INTERRUPTS ARE ENABLED 


sARE TTI INTERRUPTS ON ? 

sBRANCH IF YES 

hoe SET IF INTERRUPTS OFF 
E INTERRUPTS 


iSTART OF TTI VECTORS 

sSAVE THE CURRENT TTI VECTOR 
sSET NEW INTERRUPT ROUTINE 
sSAVE THE VECTOR PRIORITY 
sUSE PRIORITY SEVEN 

sLOWER INTERRUPT BR te? 


TRAP 
sALLOW CONTROL C 
sDID AN INTERRUPT OCCUR ? 
sBRANCH IF YES 
sWAIT SONE MORE FOR INTERRUPT 
: "INTERRUPT RECEIVED” 


sREAD TSSR STATUS 

sCHECK THE OFF-LINE BIT 
;BR, IF ORIVE IS OFF-LINE 
;"ORIVE IS NOW ON-LINE” 


TRAP 
sALMOST DONE 


SEQ 0231 


CSCLP1 


@T36MS1,-( SP) 
#1, -(SP) 

SP ,RO 

CSPNTF 


@T3EMS2, -( SP) 
#1, -(SP) 

SP RO 

CSPNTF 

04 ,,SP 


@PRIO7 RO 
C$SPRI 


@PRIOO,RO 
Cs#SPRI 


@TSBINT, -(SP) 
#1. -( SP) 


CSPNTF 
64,SP 


@TSBONL , -( SP) 
#1, -(SP) 


CSPNTF 
04,SP 
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6116 070142 
070142 


6146 070312 
6147 070314 
6151 070316 
070316 
070320 
070322 
070324 
6152 070326 
6153 070332 
070332 
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INTERVENTION 
380%: PRINTF @TS360FL 
012746 073002 
012746 000001 
010600 
104417 
062706 
005037 002224 390%: CLR INTRECV 
000137 067610 JP $00% 
25%: GMANIL T38MSG,TSEDAT, -1,NO 
104443 
000404 
073754 
000120 
073265 
177777 
BNCOMPLETE 25% 
103371 
005737 073754 TST T38DAT 
001002 BNE 27% 
000137 066662 ore ap es 
004737 015774 JSR PC, SOF INIT 
103405 Bcs 400% 
010001 MOV RO,R1 
ERRDF ERRNO,SFIERR,SFIMSG 
104455 
001763 
003652 
012034 
400%: CKLOOP 
013737 002202 072150 MOV UNITN, T360SW 
012704 072130 MOV @T3EPK2 .R4 
004737 010662 JSR PC ,.WRTCHR 
103405 6cs 410% 
010001 MOV RO,R1 
ERRHRD ERRNO, WRTMSG, SF IMSG 
104456 
001764 
012034 
410%: CKLOOP 
013701 071454 MOV T36BFR+6,R1 
010102 MOV R1,R2 
052 000004 BIS #BIT2,R2 
020102 Rl, 
001406 BEQ 4303 
ERRHRD ERRNO, TS6WAL ,EYPREC 
104456 
001765 
072444 
015474 
005237 002222 INC FATFLG 
4308: CKLOOP 
104406 


SEQ 0232 


s"ORIVE IS NOW OFF -L INE” 
MOV OTS60FL,-( SP) 
MOV #1,-(SP) 
MOV 


ADC . 

sCLEAR INTERRUPT FLAG 

;TRY AGAIN 

;WAIT FOR OPERATOR TO MOUNT TAPE 
TRAP C$GMAN 
BR 100008 
-WORD T38DAT 
-WORD TSCODE 
-WORD T38MSG 
-WORD -1 

10000$ : 


sRETRY IF ERROR 

s0ID OPERATOR SAY ‘YES’ 
sBRANCH IF YES 

sRETURN TO MAIN MENU 


:00 SOFT INIT OF CONTROLLER 
s8R IF SOFT INIT = OK 


sSAVE CONTENTS OF TSSR 
sDEVICE FATAL ERROR DURING INIT 


TRAP CSEROF 
-WORD 1011 
-WORD SFICRR 
-WORD SFIMSG 
sLOOP IF SELECTED 
Csc.P1 


SET UNIT NUMBER 
sSUBROUTINE NEEDS PACKET ADDRESS 
TISSUE WRITE CHAR CHARACTERISTICS 

IF COMMAND ISSUED OK 


:6R, 
sSAVE CONTENTS OF TSSR 
;WRITE CHARACTERISTISC PARLE 
CSERHRD 
TORO 1012 
. WORD WRTMSG 
.WORD SFIMSG 
sLOOP IF SELECTED 
TRAP CSCLP1 
sPICK UP XSTO CONTENTS 
3SET UP EXPECTED 
;SET UP THE WRITE LOCKED BIT 
s;ARE THE cT 


Y 
:BR, IF ALL IS WELL (OK) 
; "WRITE LOCKED BIT IS NOT Ry evc.° 


CSERHROD 
TYORO 1013 
-WORD TS6WRL 
-WORD EXPREC 


;SET FATAL FLAG 
;LOOP IF SELECTED 
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INTERVENTION 
005737 002222 
091402 
000137 066662 
017737 112552 
012704 072200 
010465 000000 
004737 016250 
016501 000002 
012702 100206 
020102 

001404 

104456 
001766 
072360 

1 

013701 071454 
010102 

0527 004000 
020102 

001404 

044 

001767 

072505 

015474 

1 

000137 066662 
012746 072265 
012746 000001 
010600 

104414 
062706 000004 
004737 073756 
004737 015774 
103405 
010001 

O44 

001770 
003652 

0120 

013737 002202 
0127 072130 
004737 010662 
103405 
010001 


072202 435%: 


435% 


TSSR( 
osc SSR?81T1 !'eIT2,R2 
R1,R2 


440% 
ERRNO, TS6WRT ,PKTSSR 


T38BFR+6,R1 
R1,R2 
@61T11,R2 
Ri,R2 


BEQ 450% 
ERRHRD ERRNO, TS6WLE ,EXPREC 


450$: 
JMP 


CKLOOP 


es 


CSERHRD 
TUORO 1014 
-WORD T36WRT 
-WORD PKTSSR 
sLOOP ON ERROR, IF FLAG SET 
TRAP CsCLP1 


sREAD XSTO CONTENTS 
SET UPR EXPECTED 
sSET THE WRITE yo ERROR BIT (XSTO) 


sWAS THE BIT 

;BR, IF IT WAS (G00) 

; "WRITE LOCK ERROR BIT NOT SET” 
TRAP CSERHRD 
-WORD 1015 
-WORD TS6WLE 
-WORD EXPREC 

;LOOP IF SELECTED 
TRAP CsCLP1 


3GO BACK TO MENU 


PERAK ARE HSAAREAEREHEARER RHE AAHAEKOHKEERAAAHRHHEREHEARAGHKAAR SHEE RAH 


; SERVO EXERCISER NO LONGER USED 


PEPRAREKEEREAKLAKC AERA AEARRERSSAEKRA SALSA HKOSAARRARLARARKEHKRAEEREHEHARH 


PRINTB #T36MS3 


072150 S00$: MOV 
MOV 
JSR 


8cs 


PC, TS6REST 
PC ,SOFINIT 
500% 


RO,R1 
ERRNO, SFIERR , SF IMSG 


UNITN, T380SW 
@T36PK2, 
PC,WRTCHR 
510% 


MOV RO,R1 
ERRHRD ERRNO,WRTMSG, SFIMSG 


;"EXE ANY OTHER MENU SELECTION TO STOP 
MOV 


T36EMS3, -C SP) 

MOV #1,-(SP) 
MOV SP ,RO 
TRAP CsPNTB 
ADD . 

sSET PACKET TO INITIAL VALUES 

D0 SOFT INIT OF CONTROLLER 

s8R IF SOFT INIT = OK 

sSAVE CONTENTS OF TSSR 

sDEVICE FATAL ERROR DURING INIT 
TRAP CSEROF 
-WORD 1016 
-WORD SFIERR 
-WORD SFIMSG 


;SET UNIT NUMBER 

sSUBROUTINE NEEDS PACKET ADDRESS 
sISSUE WRITE CHARACTERISTICS 
38R, IF COMMAND ISSUED OK 

i SAVE Cc 


ONTENTS OF TSSR 
sWRITE CHARACTERISTISC FAILED 
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TEST 10: MANUAL INTERVENTION 
070540 104456 TRAP CSERHRD 
070542 001771 WORD 1017 
070544 005056 :WORD — WRTMSG 
070546 012034 .WORD — 5F IMSG 
6204 070550 5108: 
6205 070550 112737 000000 071441 MOVE =: @0, T3881 sCLEAR BIT 
6206 070556 112737 000020 071440 MOVB #20, T38BSO SEXECUTE DRIVE TEST 22 
6207 070564 012704 071430 MOV =: @TSBPACKET RA 1SET UP NEW WRT. SUBSYS MEM. COMMAND 
6208 070570 010465 000000 MOV = R4, TSDBCRS sSET THE PACKET 
6209 070574 004737 016336 JSR sé, WAIT FOR SSR TO 
6210 070600 103405 BCS «8508 sBR IF CARRY SET (GOOD RETURN) 
6211 070602 910001 MOV =—s- RO, RA sSAVE CONTENTS OF TS 
6215 070604 ERROF  ERRNO,TSSSSR,PKTSSR § ;DEVICE FATAL SSR FAILED TO SET 
070604 10445 TRAP CSERDF | 
070606 001772 WORD 1018 
070610 072626 WORD T38SSR 
070612 012046 -WORD © PKTSSR 
6216 070614 550#:  CKLOOP sLOOP ON ERROR, IF FLAG SET 
070614 104406 RAP CACLPL 
6217 070616 SETPRI @PRIO7 sRAISE THE PRIORITY 
070616 012700 000340 MOV, —_-@PRIOT.RO 
070622 194441 C$SPRI 
6218 070624 005037 071414 CLR =: TTION2 sASSUME INTERRUPTS ARE QUBLED 
6219 070630 032737 000100 177560 BIT #100, @eTTICSR 1A TTI INTERRUPTS 
6220 070636 001005 BNE =: 5558 
6221 070640 005237 071414 INC _ TTION2 {FLAG SET IF INTERRUPTS OFF 
6222 070644 052737 000100 177560 BIS #100, @eTTICSR sENABLE INTERRUPTS 
6223 070652 012701 000060 S55#: MOV  @TTIVEC,R1 SSTART OF TTI VECTORS 
6224 070656 011137 071416 mov = CR1), TYSAV2 sSAVE THE CURRENT TTI VECTOR 
6225 070662 012721 070710 MOV -@5908, (R1)- sSET NEW INTERRUPT ROUTINE 
6226 070666 011137 071420 MOV —- CR1), TPSAV2 sSAVE THE VECTOR PRIORITY 
6227 070672 012711 000340 MOV —- @PRIO7,(R1) sUSE PRIORITY SEVEN 
6228 070676 SETPRI @PRIOO sLOMER INTERRUPT BR LEVEL 
070676 012700 000000 MOV —- @PRTOO.RO 
070702 104441 : TRAP = CSSPRI 
6229 070704 000240 560¢: NOP :LOOP AWHILE 
6230 070706 000776 BR 5608 sSTAY IN "TIGHT" LOOP 
%¢ 
6232 sPROCESS CONSOLE INTERRUPTS 
6235 070710 010046 590: MOV RO, -(SP) sSAVE WORK REGISTER 
6236 070712 113700 177562 SETTIBFR,RO 1GET THE T T 
6237 070716 042700 BIC #200, sSTRIP OFF PARITY BIT 
6238 070722 122700 000015 CHPB #15, RO sIS IT A CARRIAGE RETURN 
6239 070726 001075 ONE «S918 sJUST EXIT IF NO 
6240 070730 012766 066662 000002 MOV =—-_-@28,2¢ SP) ' TO MASTER MENU 
6241 070736 005066 000004 CLR = @( SP) sFORCE PRIORTY 0 
6242 070742 013737 071416 000060 MOV -TVSAV2, SOTTIVEC ,RESTORE VECTOR 
6243 070750 013737 071420 000062 MOV ——- TPSAV2, BOTTIVEC +2 sRESTORE SUPER PRIORTY 
6244 070756 112737 000025 071440 MOVE #25, T368S0 1STOP ORIVE TEST 22 
6245 070764 112737 000000 071441 MOVE © @0, T388S1 sCLEAR BS1 
6246 070772 012704 071430 MOV —- @T SPACKET,, R4 sSET UP_NEW WRT. SUBSYS MEM. COMMAND 
6247 070776 010465 000000 MOV —s-R4, TSOBCRS) sSET THE PACKET ADDRESS 
6248 071002 012737 176750 071422 MOV «2 TSBOLY SET UP DELAY COUNTER 
6249 071010 004737 016250 592s: JSR PC, WAIT 100 A WAIT 
6250 071014 016501 000002 HOV TSSRCRS). RA \CONTENTS OF TSER REGISTER 
| 
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6251 071020 032701 000200 BIT @SSR,R1 sCHECK FOR TSSR SET 

6252 071024 001017 BNE 595% sKEEP GOING IF NOT SET 

6253 071026 DELAY 250 sCALL DELAY ROUTINE 
071026 012727 000250 MOV €250,(PC)- 
071032 000000 -WORD O 
071034 013727 002116 MOV LSOLY,(PC)- 
071040 000000 -#ORD O 
071042 005367 177772 DEC -6(PC ) 
071046 001375 BNE -4 
071050 005367 177756 DEC -22(PC) 
071054 001367 BNE -20 

6254 071056 005337 071422 DEC T380L Y sBUMP COUNTER DOWN 

6255 071062 001352 BNE 592% 36R, IF TIME LEFT 

6256 071064 004737 016336 595%: JSR PC ,CHKTSSR sWAIT FOR SSR TO SET 

6257 071070 103405 6cs 3808 s8R IF CARRY SET (GOOD RETURN) 

6258 071072 010001 MOV RO,R sSAVE CONTENTS OF 

6262 071074 ERROF ERRAND, TSBSSR,PKTSSR sOEVICE FATAL SSR FAILED TO SET 
071074 104455 TRAP CSERDF 
071076 001773 1019 
071100 072626 T38SSR 
071102 012046 PKTSSR 

6263 071104 5803: CKLOOP sLOOP ON ERROR, IF FLAG ser 
071104 104406 TRAP CsCL_P1 

6264 071106 005737 071414 TST TTION2 sARE SUPER INTERRUPTS ENABLED 

6265 071112 0014035 BEQ 591% s6R, YES 

6266 071114 042737 000100 177560 BIC #100, @@TTICSR RESTORE REGISTER 

6267 071122 012600 591%: MOV (SP )+«,RO sRESTORE REGISTER 

6268 071124 000002 RTI sRETURN 

6269 071126 35%: 

6270 071126 004737 073756 JSR PC, TS6REST sSET PACKET TO INITIAL VALUES 

6271 071132 004737 015774 JSR PC. SOF INIT 300 SOFT INIT OF CONTROLLER 

6272 071136 103405 BCS 6008 3s6R IF SOFT INIT = OK 

6276 071140 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 

6277 071142 ERROF ERRNO, SFIERR , SFIMSG ;DEVICE FATAL ERROR wane 3 INIT 
071142 104455 CsEROF 
071144 001774 "WORD 1020 
071146 003652 -WORD SFIERR 
071150 012034 -WORD SFIMSG 

6276 071152 600%: CKLOOP sLOOP IF SELECTED 
071152 1 TRAP CsCLPi1 

6279 071154 012701 071446 MOV @TSEBFR,R1 sADORESS OF MESSAGE BUFFER 

6260 071160 012702 125252 MOV #125252 ,R2 sALTERNATING 1'S AND 0'S 

6262 071164 010221 601%: MOV R2,.CR1)« sCLEAR OUT THE MESSAGE BUFFER 

6283 071166 022701 072122 CMP @T38EB ,R1 sEND BUFFER YET 

6284 071172 001401 BEQ 605% 38R, IF AT END OF BUFFER 

62865 071174 000773 BR sNOT AT END KEEP GOING 

6286 071176 013737 002202 072150 6058: MOV UNITN, T380SW sSET UNIT 

6287 071204 0127 072130 MOV @T36PKe2, sSUBROUTINE NEEDS PACKET ADORE 

6268 071210 004737 010662 JSR PC ,WRTCHR STSSUE WRITE CHARACTERISTICS 

62869 071214 103405 ecs 610% 38R, IF COMMAND ISSUED OK 

6293 071216 010001 MOV RO, SAVE CONTENTS OF TSSR 
071220 ERRHRD ERRNO,WRTMSG, SF IMSG sWRITE CHARACTERISTISC FAILED 
071220 1044 TRAP CSERHRD 
071222 001775 ‘ 1021 
071224 .WORD WRTMSG 
071226 012034 .WORD SFIMSG 
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6295 071230 6108: CKLOOP 3LQOP IF SELECTED 
071230 104406 TRAP CSCLPi 
62% 071232 112737 000000 071441 MOvVB #0, 173866S1 sCLEAR BIT 04 
6297 071240 112737 000024 071440 MOVB 024 ,T368S0 sREAD EXTENDED DRIVE STATUS 
6298 071246 012704 071450 MOV @TSBPACKET ,R4 sSET UP NEW WRT. SUBSYS MEM. COMMAND 
6299 071252 010465 000000 MOV R4, TSOBC(RS) sSET THE PACKET ADORESS 
6300 071256 012737 000144 071422 MOV #100. , TS6DLY sSET UP DELAY ROUTINE 
6301 071264 004737 016250 6208: JSR PC ,WAITF sWAIT AWHILE FOR SSR TO SET 
6302 071270 016501 000002 MOV TSSR(RS), Ri 3SEE IF IT REALLY DID | 
6303 071274 032701 000200 BIT @SSR,R1 sJUST CHECK THAT BIT 
6304 071300 001017 BNE 630% 3s6R, IF SSR IS SET 
6305 071302 DELAY 250 sDELAY ABOUT .25 SEC 
071302 012727 000250 MOV 0250 ,,(PC)+ 
071306 000000 -WORD O 
071310 013727 002116 MOV LSOLY,(PC)-+ 
071314 000000 -WORD O 
071316 005367 177772 OEC —" ) 
071322 001375 BNE 
071324 005367 177756 OEC 23 PC) 
071330 001367 BNE .-20 
6306 071332 005337 071422 DEC T380L Y sSTART DELAY COUNT DOWN 
6307 071336 001352 BNE 620% 38R, IF COUNTER IS NOT AT DONE 
6308 071340 004737 0163536 6308: JSR PC .CHKTSSR SWAT FOR SSR TO SET 
6309 071344 103405 Bcs 650% 3s8R IF CARRY SET (GOOD RETURN) 
6310 071346 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 
6314 071350 ERROF ERRNO, T36SSR,PKTSSR IDEVICE FATAL SSR FAILED TO SET 
071350 104455 TRAP CSEROF 
071352 001776 -WORD 1022 
071354 072626 -WORD T386SSR 
071356 012046 .WORD PKTSSR 
6315 071360 6508: CKLOOP sLOOP ON ERROR, IF FLAG SET 
071360 104406 TRAP CSCLP1 
6316 071362 012700 071466 MOV @T38BFR+20,RO sMESSAGE BUFFER ADORESS 
6317 071366 005001 CLR Ri 3sNO HIGH ORDER ADDRESS BITS 
6318 071370 005037 003134 CLR K TENABLE 3sNO KT11 STUFF EITHER 
6319 071374 004737 074014 JSR PC, T38MBP 3GO PRINT MESSAGE BUFFER CONTENTS 
6320 071400 000137 066662 JP 2s 3GO BACK TO MENU 
€352 
6323 071404 000137 000200 63%: Jap 200 sREALLY RETURN TO THE SUPERVISOR 
6324 071410 643: EXIT TST sLEAVE TEST 
071410 104432 TRAP CSExIT 
071412 003054 .WORD 1L10075-. 
6325 
6326 3° 
6327 sLOCAL TEXT MESSAGES FOR TEST 
6328 :- 
6329 
6330 sLOCAL STORAGE FOR THIS TEST 
6331 $- 
6332 3° 
6333 sLOCAL STORAGE FOR THIS TEST 
ss ; 
6336 071414 000000 TTION2: -WORD O 3sWORD SET IF SUPERVISOR TTI INTER OFF 
6337 071416 000000 TVSAV2: .WORD 0 1s SAVE ITE VECTOR 
6338 071420 000000 TPSAV2: .WORD 0 sS5SAVE TTI PRIORITY | 
} 
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TEST 10: MANUAL INTERVENTION 
6339 
6340 071422 000000 T38OLY: .WORD sDELAY COUNTER FOR TES] 
6342 071430 a ny109€177770 
6344 071430 T3QPACKET: sCOMMAND PACKET FOR TEST 
6345 071430 140006 .WORD 140006 SWRITE SUBSYSTEM MEM. CMD, ACK,CVC-1 
6346 071432 071440 “WORD T38TAD sADORESS OF CHARACTERISTICS BLOCK 
6347 071434 000000 -WORD O 
6348 071436 000012 -WORD 10. sSTARTING VALUE OF BLOCK SIZE 
6349 071440 T38TAD: CHARACTERISTICS DATA BLOCK 
6350 071440 000 T386B8SO: .BYTE 0 sBSELO BYTE 
6351 071441 000 T388Si1: .BYTE 0 ;BSEL1 BYTE 
6352 071442 000000 T36BS2: .WORD 0 s6SEL1 WORD 
6353 071444 000000 0 sDATA 
071446 T36BFR: .BLKW 150. sMESSAGE BUFFER 
6355 072122 000000 T36EB: .WORD sENO OF BUFFER ADDRESS 
6356 
6357 
6359 072130 .®¢,¢10>€177770 
6361 072130 T36PK2: sCOMMAND PACKET FOR TEST 
6362 072130 140004 -WORD 140004 ;MRITE CHARA. MEM. CMND., ACK,CVC=1 
072132 072140 .WORD TS38DTA sADORESS OF SELECT DATA BLOCK 
072134 -WORD O 
ooee 072136 000012 .WORD 10. sSTARTING VALUE OF BLOCK SIZC 
6367 
6368 072140 T38OTA sSELECT DATA BLOCK 
6369 072140 071446 -WORD T36BFR sADORESS OF MESSAGE BUFFER 
6370 072142 -WORD O 
6371 072144 000400 -WORD 256. sLENGTH OF MESSAGE BUFFER 
6372 072146 000000 T38EAI: .WORD 0 sEAI BIT 
6373 072150 000000 T360SW: .WORD 0 sORIVE SELECT WORD ETC 
63 072160 -*¢, ¢10>€177770 
6377 072160 140212 T38PK3: .WORD sMESSAGE BUFFER RELEASE COMMAND 
6378 072162 -WORD O sNOT USED 
6379 072164 000000 -WORD O sNOT USED 
72166 000000 -WORD O sNOT USED 
coon 072170 000000 -WORD O sNOT USED 
3 
6383 sWRITE TAPE PACKET 
6384 3 
6386 072200 -*<,¢102€177770 
6388 072200 140005 T36PK4: .WORD 140005 sWRITE, ACK, CVC=1 COMMAND 
6389 072202 000000 T36WR: .WORD O sADORESS OF WRITE BUFFER 
6390 072204 000000 -WORD O sMORE ADDRESS OF WRITE BUFFER 
oes 072206 000400 T386SIZ: .WORD 256. iSIZE OF RECORD 
6393 
6394 
6395 
6396 3° 
6397 sLOCAL TEXT MESSAGES FOR TEST 
6398 3° 
6399 
6400 
6401 
6402 
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073450 
073710 
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6404 072210 123 

6405 072265 045 

6406 072350 124 

6407 072444 127 

6408 072505 127 

6409 072552 127 

6410 07 103 

6411 072716 045 

6412 072746 045 

6413 073002 04S 

6414 073036 103 

6415 073126 045 

6416 073221 045 

6417 073265 111 

6418 073325 115 

6419 

6420 073352 073376 

6421 073366 073645 

6422 

6423 073376 012 

6424 073450 012 

6425 073476 011 

6426 073530 011 

6427 073563 Oil 
073617 011 
073645 011 

6430 073710 011 

6431 073753 000 

6432 

6433 

64 34 

6435 

64 

6437 

6438 073754 000000 

6439 073756 

6440 073756 

6441 073762 012701 

6442 073766 012721 

6443 073772 012721 

6444 073776 005021 

6445 074000 012721 

6446 074004 005021 

6447 074006 005021 

6446 074010 005011 

reed 074012 000207 

6451 

6452 

6453 

6454 

6455 

64 

6457 

6458 

6459 


156 


073476 
073753 


3° 
sLOCAL STORAGE 
3 = 


T38DAT: .WORD 
T38REST: 


3* 


; THIS ROUTINE PRINTS THE CONTENTS OF 


'Stend-elone Menvel Intervention Not Executed’ 
yee Servo Exerciser, Return To Menu’ 
'TSSR Not Correct After WRITE, With WRITE PROTECT On’ 


‘sNBA T 


<RETURN> To St 


‘WRITE LOCKED Bit Not Set In XSTO’ 


"WRITE LOCK ERROR Bit Not Set In XxSTO’ 
‘WRITE SUBSYSTEM MEMORY 


SEQ 0238 


Command Not Accep 
‘Contents of TSSR Incorrect After WRITE CUSSYSTEM MEMORY ' 
‘NSA Interrupt Received’ 


Ori 
‘Contents Of TSSR Incorrect After MESSAGE BUFFER RELEASE’ 
ee ON-LINE Switch to Generate ATTENTION Interrupts’ 


'SNSAT ype RETURN To Return To MenusN’ 


‘Is Write-Protected Tape Mounted’ 


‘Menuvel Intervention’ 
1%,2¢,3% © me -6$ 


6% ,9%,10%, 


Ousawrro 


< 
‘ 
‘ 
‘ 
’ 
‘ 
‘ 
on 


FOR THIS TEST 


@TSEPACKET ,R1 


rages al OPERATION FROM FOLLOWING OPTIONS: ’ 
12>‘ Dieplay This Menu’ 
Turn On All M7196 LED''s 

Turn Off All M7196 LED’ Oe" 
Offline/Online Attention’ 
Write Protect Test’ 
Print Extended Transport Stetus’ 
Return to Diagnostic Supervisor’ 


sLOGICAL RESPONSE TO QUESTION 


sSAVE THE gm § 
SSTART OF THE PACKET 


sWRITE SUBSYSTEM MEM. WITH ACK,.CVC=1 


sADORESS OF DATA BLOCK 
sEXTENDED ADORESS 

sSIZE OF DATA BLOCK IN BYTES 
sCLEAR BSELO AND BSEL1 


sCLEAR SEL2 


sCLEAR DATA AREA 


sRETURN 


sTHE 256 BYTE MESSAGE BUFFER RETURNED BY THE 


3 TSV-05 


3 
3; INPUT: 

3 

F RO 


LOW ORDER ADDRESS OF MESSAGE BUFFER 


ae meee at ee ee a a ee ew ae 


TSVS - HARDWARE TESTS MACRO M1113 14-JUN-84 15:55 SEQ 0239 | 
TEST 10: MANUAL INTERVENTION | 
646! : HIGH ORDER ADDRESS OF MESSAGE BUFFER 
6462 : NOTE: Ri IS IGNORED IF KTENABLE FLAG IS CLEAR 
6463 3 
6464 : 
6465 3: 
| 6467 074014 T38MBP : 
6468 074014 SAVREG sSAVE THE REGISTERS 
| = 469 074020 010005 RO,RS sSAVE LOW ORDER 
6470 074022 005737 003134 TST KTENABLE sADORESS ABOVE 28K? 
| 6471: 074026 +©001001 BNE 910% 18R IF YES 
| 472 074030 1 CLR R1 sSET HIGH ORDER ADORESS TO 0 
6473 074032 010103 910%: MOV R1,R3 sSAVE HIGH ORDER ADORESS 
6474 074034 0061 RO sSHIFT BIT1S5 TO C BIT 
6475 074036 006101 OL Ri sSHIFT TO HIGH ORDER FOR PRINTOUT 
6476 074040 PRINTX @T38ASO,R1,R5  ;PRINT MESSAGE BUFFER ADDRESS 
074040 01 Mov RS, -(SP) 
074042 010146 MOV R1,-(SP) 
074044 012746 074316 MOV @T38ASO, -(SP) 
074050 012746 000003 MOV 63,-(SP) 
074054 010600 MOV RO 
074056 104415 TRAP C$PNTX 
074060 062706 000010 ADD #10,SP 
6477 074064 PRINTX @T38AS1 ;PRINT HEADER FOR CONTENTS 
074064 012746 074363 MOV @T38AS1, -(SP) 
074070 012746 1 MOV @1,-(SP) 
074074 O1 MOV SP RO 
074076 104415 TRAP C$PNTX 
074100 062706 000004 ADO . 
6478 074104 010501 MOV RS,R1 sCOPY LOW ORDER ADORESS 
6479 074106 010300 MOV R3, sCOPY HIGH ORDER ADDRESS 
6480 074110 001403 BEQ 913% sR IF NOT ABOVE 28K 
6481 074112 004737 017316 JSR PC, SETMAP sSETUP PAR ADORESS IN RO 
6482 074116 010005 RS sGET PAR FORMAT ADORESS ABOVE 28K 
6483 074120 010537 074464 913$: MOV RS, T36CNT sHOLD ADORESS 
6484 074124 011504 911$: MOV (R5),R4 :GET BUFFER ENTRY 
6485 074126 704 125252 #1 / sCHECK FOR NO LOAD CONDITION 
6486 074132 001417 BEQ 912% :8R, IF BUFFER WASN'T LOADED 
6487 074134 010403 RB sMAKE COPY 
6488 074136 042704 170377 BIC #170377 ,R4 SONLY BITS 11. 10,9 AND 8 ARE SAVED 
6489 074142 000241 cLC sCLEAR CARR 
6490 074144 006004 ROR R4 311 TO 10 BIT POSITION 
6491 074146 006004 ROR R4 310 TO 9 BIT POSITION 
6492 074150 006004 ROR R4 39 TO 8 BIT POSITON 
6493 074152 006004 ROR R4 38 TO 7 BIT POSITION 
6494 074154 042703 177760 BIC #177760,R3 ;ONLY BITS 3. 2. 1 AND © ARE SAVED 
6495 074160 060403 ADO R4,R3 s“OR'EM T 
6496 074162 010325 MOV R3,(RS) sPUT BACK ~ OUrFER 
6497 074164 7 072122 CMP RS, @T38EB sEND OF BUFFER YET 
| 6498 074170 001355 BNE 911% 38R, IF NOT AT END YET 
| 6499 074172 013705 074464 912$: MOV T38CNT ,RS ;PUT ADDRESS BACK 
| 6500 074176 012704 000001 MOV @1,R4 ;START BYTE NUMBER AT ONE 
| 6501 074202 915%: PRINTX @T38ASN,R4,(RS)> ;PRT MEM BUFFER W/NEWLINE 
074202 012546 MOV (RS)+,-(SP) 
074204 010446 MOV R4,-(SP) 
074206 012746 074440 MOV @T38ASN, -(SP> 
074212 012746 000003 MOV 03, -(SP) 
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TSVS 
TEST 10: MANUAL INTERVENTION 
074216 010600 MOV SP ,RO 
074220 104415 TRAP = C$PNTX 
074222 062706 000010 ADD 610,SP 
6502 074226 005037 074464 CLR T38CNT :CLEAR COUNTER 
6503 074232 000412 BR 9218 sSKIP OTHER PRINT 
6504 074234 920%:  PRINTX @T3BASC,R4,(RS)+ :PRINT THE CONTENTS OF MEMORY BUFFER 
074234 012546 MOV (RS)+,-(SP) 
074236 010446 MCV R4,-(SP) 
074240 012746 074421 MOV @T38ASC, -(SP) 
074244 012746 000003 MOV 03, -(SP) 
074250 010600 MOV SP, 
074252 104415 TRAP —- C$PNTX 
074254 062706 000010 ADO #10,SP 
| 6505 074260 005237 074464 9218: INC T38CNT :BUMP COUNTER 
| 6506 074264 005204 INC sNUMBER OF THE NEXT 
| 6507 074266 7 000200 R4, 0128 sDONE ALL YET ? 
6508 074272 003010 BGT :BRANCH IF 
| 6509 074274 023727 074464 000004 T3BCNT 04 sDONE FOUR YET 
| 6510 074302 001401 BEQ 925 18R, IF THREE DONE 
6511 074304 000753 BR 9208 sKEEP GOING 
| 6512 074306 005037 074464 925%: CLR T38CNT sCLEAR COUNTER 
| 6513 074312 000733 BR 915% sPRINT WITH NEW LINE 
6514 074314 000207 50s: RTS PC RETURN 
651 
6516 074316 045 116 045 T38ASO: .ASCIZ ‘SNSA Meesege Buffer Address = #01805’ 
| 6517074363 045 116 045 T3BAS1: .ASCIZ ‘sNSA SMA Message Buffer Contents: 
| 6518 074421 045 101 040 T3BASC: .ASCIZ ‘SA #03' 
| 6519 074440 045 116 045 T3BASN: ASCE 1 SNA ay tesa: 803° 
| 6521 074464 000000 T38CNT: .WORD :COUNTER FOR PRINT 
| 6522 074466 ENOTST 
074466 L10075: 
074466 104401 TRAP = CSE TST 
6523 .SBTTL TEST 11: CONFIGURATION TYPEOUT 
| 6525 sTHIS IS A STANDALONE ROUTINE THAT PRINTS OUT ON THE CONSOLE TERMINAL 
| 6526 HE CONFIGURATION OF THE M7196 MODULE AND TSVOS SUBSYSTEM. SPECIFICALLY, 
| 6327 te FOLLOWING INFORMATION IS PRESENTED: 
H 
6529 ; 
| 6530 ; 1.0 STATE OF THE EXTENDED FEATURES SWITCH ON THE M7196: ON (EXTENDED 
| 6531 : FEATURES ENABLED) OR OFF (EXTENDED FEATURES DISABLED), 
' ° 
| 6533 ; 2.0 STATE OF THE BUFFERING ENABLE SWITCH ON THE M7196: ON 
| 6554 : (BUFFERING ENABLED) OR OFF (BUFFERING DISABLED), 
o 
6536 ; 3.0 MICROCODE REVSION LEVEL OF THE M7196, 
° 
6538 ; 4.0 NUMBER OF TAPE TRANSPORTS CONNECTED TO THE CONTROLLER, 
| é 
6540 ; 5.0 UNIT SELECT CODE AND STATE (ONLINE/OFFLINE, WRITE ENABLED/PROTECTED) 
6541 4 OF EACH CONNECTED TRANSPORT. IN ADDITION, THE PROGRAM WILL INDICATE, 
6542 i FOR EACH ON-LINE TRANSPORT, WHETHER OR NOT IT IS EQUIPPED WITH THE 
6543 ; EXTENDED TAPE STATUS READOUT FEATURE. 
6544 ; 
6545 F 
o 


THE OPERATOR IS EXPECTED TO READ THE PRINTOUT AND VERIFY THAT IT MATCHES 





6570 074502 
6571 074506 
6572 074512 
6573 074516 


6576 074524 
6577 074530 


6591 074566 
6592 074570 
074570 


6593 074600 


6594 074602 
6595 074606 


6596 074626 


TESTS 


104406 
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TEST 11: CONFIGURATION TYPEOUT 


076463 
077612 
016510 
020500 
075700 
015774 


002202 
076410 
010662 


075740 


077331 
000001 


000004 
000200 


076430 


Eg 


SEQ 0241 


sTHE ACTUAL CONFIGURATION AT HAND. IF, FOR EXAMPLE, THE PROGRAM INDICATES 
sTHAT IT “SEES” TWO TRANSPORTS COtMECTED WHEN IN FACT ONLY ONE IS PRESENT, 
S_AN AND ATTEMPT TO ow THE 
TR . ETC.). 
MOARD” 


VIA THE 
;WRITE SUBSYSTEM MEMORY COMMAND IN ORDER TO SCAN FOR CONNECTED TRANSPORTS. ] 
; 


i 

sTHIS ROUTINE, WHEN ITS ACTIONS ARE COMPLETED, WILL EXIT BACK TO THE 
sOIAGNOSTIC SUPERVISOR SO THAT IF ADDITIONAL UNITS (CONTROLLERS) ARE 
sSELECTED (E.G., FROM THE INITIAL STARTUP DIALOG), THE ROUTINE WILL BE 
sREENTERED SO THAT THEIR CONFIGURATIONS CAN BE PRINTED. 

; 


BGNTST . 
1l:: 
RFLAGS RO sGET OPERATOR FLAGS 
TRAP CSRFLA 
BEQ 10% sBR, IF OK TO RUN 
MOV @TSONE ,RO ; “TEST NOT EXECUTED” 
BR 11% OUT OF TEST IF NOT 
10$: MOV @TST39ID ,RO ITEST ID MESSAGE 
11%: JSR PC, TSTSETUP 300 THE COMMON SETUP 
JSR PC , CHKMAN 31S MANUAL INTERVENTION ALLOWED? 
BCS 20% 3sBR, IF MANUAL a ALLOWED 
_ JMP 64% sJUMP TO OUT IF 
JSR PC, SOFINIT 300 SOFT INIT OF CONTROLLER 
BCS 25$ 3;6R IF SOFT INIT = OK 
MOV RO,R1 sSAVE CONTENTS OF TSSR 
ERRDOF ERRNO, SFIERR,SFIMSG sDEVICE FATAL ERROR OURING INIT 
TRAP CSEROF 
-WORD 1101 
-WORD SFIERR 
-WORD SFIMSG 
25% CKLOOP 3LOOP IF SELECTED 
TRAP CSCLP1 
MOV UNITN, T390SW ;SET UNIT NUMBER 
MOV @T39PK2, RG sSUBROUTINE NEEDS PACKET ADORESS 
JSR PC .WRICHR 1 TSSUE WRITE CHARACTERISTICS 
6cS 50% IF COMMAND ISSUED OK 
MOV RO,R1 iSAVE CONTENTS OF TSSR 
ERRHRO ERRNO, WRTMSG, SFIMSG sWRITE CHARACTERISTISC FAILED 
TRAP CSERHRD 
-WORD 1102 
.WORD WRTMSG 
-WORD SFIMSG 


50$: CKLOOP s;LOOP IF SELECTED 
AP CsCLP1 
;GET XST2 STATUS FROM MESSAGE BUFFER 


T39BFR+12,R1 
@T39SFS :"STATE OF EXTENDED —— SW =" 


MOV 
PRINTX 


@TS9SFS,-CSP) 


MOV #1,-CSP) 


MOV SP ,RO 
TRAP CS$PNTX 
#4,SP 


sCHECK STATE OF E.F.S. 


BIT *BIT7,R1 
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6597 074632 001011 
6598 074634 
074634 012746 077455 
074640 012746 000001 
074644 010600 
074646 104415 
074650 062706 000004 
6599 074654 000410 
6600 074656 
074656 012746 077464 
074662 012746 000001 
074666 01 
074670 104415 
074672 062706 000004 
6601 074676 
074676 012746 077403 
074702 012746 000001 
074706 010600 
074710 104415 
074712 062706 000004 
6602 074716 032701 000100 
6603 074722 001011 
6604 074724 
074724 012746 077455 
074730 012746 000001 
074734 010600 
074736 104415 
074740 062706 000004 
6605 074744 000410 
6606 074746 
074746 012746 077464 
074752 012746 000001 
074756 010600 
074760 104415 
074762 0627 
6607 074766 042701 177700 
6608 074772 010137 077550 
6609 074776 
074776 013746 077550 
075002 012746 077473 
075006 012746 
075012 010600 
075014 104415 
075016 0627 000006 
6610 075022 004737 015774 
6611 075026 103405 
6615 075030 010001 
6616 075032 
075032 104455 
075034 002117 
075036 003652 
075040 012034 
6617 075042 
075042 
6618 075044 013737 002202 
6619 075052 012704 076410 
6620 075056 004737 010662 


976430 


100$: 


110$: 


140%: 
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BNE 
PRINTX 


BR 
PRINTX 


PRINTX 


BIT 
BNE 
PRINTX 


BR 
PRINTX 


BIC 
MOV 
PRINTX 


SEQ 0242 
100$ sBR, IF EXT. FEA. SW. IS ON 
@T390FF ;* OFF “ 
MOV OTS39OFF ,-(SP) 
MOV #1,-(SP) 
MOV -RO 
TRAP C&PNTX 
ADD @4,SP 
110% sSKIP OTHER PRINT STATEMENT 
@T390N 3" ON ”“ 
MOV @T390N, -(SP) 
MOV #1,-(SP) 
MOV SP ,RO 
TRAP CSPNTX 
ADO @4,SP 
@T39SB8S ;"STATE OF BUFFERING SWITCH =” 
MOV @T39S8S , -( SP) 
MOV #1,-(SP) 
MOV SPR 
TRAP CSPNTX 
ADD 04 ,SP 
@BIT6,R1 sCHECK STATE OF BUFFERING SW 
120% sBR, IF BUFFERING IS ON 
@TS90FF s° GF" 
MOV @TS9OFF ,-(SP) 
MOV #1,-(SP) 
MOV SP ,RO 
TRAP CSPNTX 
ADO 04 ,SP 
130% ;SKIP OTHER PRINT STATEMENT 
@T390N ;” ON “ 
MOV @T390N, -(SP) 
MOV #1,-(SP) 
MOV SP RO 
TRAP CSPNTX 
ADO e4 
#177700,R1 sONLY LEAVE MICROCODE REV LEVEL 
R1, TS9RL sLOAD UP REV LEVEL 
@TSOMCL , TSORL ; "MICROCODE REVISION LEVEL =OOOXXx” 
MOV T39RL , -CSP) 
MOV @T3OMCL, -(SP) 
MOV 2, -(SP) 
MOV SP RO 
TRAP CSPNTX 
ADO 6, SP 
PC, SOF INIT 300 SOFT INIT OF CONTROLLER 
140% sBR IF SOFT INIT = OK 
RO,R1 sSAVE CONTENTS OF TSSR 
ERRNO, SFIERR , SFIMSG sDEVICE FATAL ERROR DURING INIT 
TRAP CSEROF 
-WORD 1103 
-WORD SFIERR 
-WORD SFIMSG 
sLOOP IF meets | 
TRAP CsCLP1 
UNITN, T390SW sSET UNIT NUMBER 
eT39PK2, R4 sSUBROUTINE NEEDS PACKET ADDRESS 
PC, WRTCHR ISSUE WRITE CHARACTERISTICS 
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6621 075062 
6625 075064 
6626 075066 


6668 
6669 075242 


103405 
010001 


MACRO M1113 


076410 


010662 


000002 


075721 
075720 


076430 


160$: 
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CKLOOP 
MOV 


150$ 
RO,R1 
ERRNO, WRTMSG , SFIMSG 


EXTFEA 


R4, TSDB(RS) 
PC * CHKTS SR 
160$ 


RO eR1 
ERRNO, TSONBA,PKTSSR 


OTS9PK2 ,R4 


SEQ 0243 
sBR, IF COMMAND a OK 
TSAVE CONTENTS OF T 
sWRITE CHARACTERISTISC iy 
C#ERHROD 

TYORO 1104 

«WORD WRTMSG 

-WORD SFIMSG 


sLOOP IF SELECTED 
CsCLP1 


TRAP 
sCHECK FOR EXTENDED FEATURES SW SWITCH 
sBR IF SWITCH IS ON 

sWRITE MISCELLANEOUS CONT/READ STATUS 

sFUNCTION SELECTION BIT (TURN ON EXTFEA HW SWITCH) 
sWRITE SUBSYS MEM PACKET 

s ISSUE COMMAND 

sWAIT FOR SSR 

s8R, IF NO ERROR 

sERROR, SAVE TSSR 

sTSSR NOT CORRECT AFTER pail MISCELLANEOUS 


RAP CSERHRO 
-WORD 1105 
-WORD TSONBA 
-WORD PKTSSR 


sLOOP IF SELECTED 
TRAP CSCLP1 
sSUBROUTINE NEEDS PACKET ADDRESS 


PRAEAKKERAEAEHAKARHAHAHAREHAASHERAAAEARHEH HS CHMSAMEKELSESLERERAH SASHES 


;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


Gl 
PRRLERERESEGAAEAHALGREKOSEAHEKESEEARAEAGAHAESKERHKHESEREE EE AKKERHE HEH 


170%: 


174%: 
175$: 


180%: 


CKLOOP 


MOV 


PC ,WRTCHR 
170% 


RO,R1 
ERRNO, WRTMSG , SFIMSG 


UNITN 

UNITN, T390SW 
OT39PK2 ,R4 
PC ,WRTCHR 
180% 


RO,R1 
ERRNO, WRTMSG , SFIMSG 


TSSRCRS),R1 


sISSUE WRITE CHARACTERISTICS 
OMMAND ISSUED OK 


sR, IF C 
sSAVE CONTENTS OF TSSR 
sWRITE CHARACTERISTISC ss 


RAP CSERHRO 
-WORD 1106 
-WORD WRTMSG 

WORD SFIMSG 


sSCOPE LOOP 


sSET TO DRIVE O 

sSET UNIT NUMBER 

sSUBROUTINE NEEDS PACKET ADDRESS 

sISSUE WRITE CHARACTERISTICS 
ISSUED OK 


sBR, IF C 
SAVE CONTENTS OF TSSR 
WRITE CHARACTERISTISC ry 


CSERHRD 
TYORO 1107 
-WORD WRTMSG 
-WORD SFIMSG 


;LOOP IF SELECTED 
TRAP CsCLP1 


sGET TSSR STATUS 


a Se ee 


L3 


TSVS - HARDWARE TESTS MACRO M1113 14-JUN-84 15:55 SEQ 0244 
TEST 11: CONFIGURATION TYPEOUT | 
6670 075246 032701 000100 BIT OOFL RI ;CHECK FOR OFF-LINE 
6671 075252 001414 BEQ 2008 iBR, IF ORIVE IS ON-LINE 
6672 075254 PRINTX @T390F2,UNITN :"DRIVE NUMBER XX IS OFF-LINE” 
075254 013746 002202 MOV UNITN, -(SP) 
075260 012746 076724 MOV OT390F 2, -(SP) 
075264 012746 000002 MOV 62,-(SP) 
075270 010600 MOV SP ,RO 
075272 104415 TRAP = C$PNTX 
075274 062706 000006 ADO 06,SP 
| 6673 075300 000137 075634 JMP 2508 :00 NOT TRY TO GET ANYMORE INFO. 
6674 075304 200:  PRINTX @T390N2,UNITN ;"ORIVE NUMBER XX IS ON-LINE” 
075304 013746 002202 MOV UNITN. -(SP) 
075310 012746 076770 MOV @T390N2, -(SP) 
075314 012746 000002 MOV @2, -(SP) 
075320 010600 MOV SP ,RO 
075322 106415 TRAP = C$PNTX 
0 062706 000006 ADO 06,.SP 
| = 6675 075330 v13701 075734 MOV T39BFR+6,R1 sREAD EXTENDED STATUS (XSTO) 
| 6676 075334 032701 000004 BIT eB1T2,R1 :IS ORIVE WTITE PROTECTED 
6677 075340 001013 BNE 210% ;8R, IF WRITE PROTECTED 
| 6678 075342 PRINTX @T39WPN,UNITN ;"ORIVE NUMBER IS NOT WRT PRO” 
075342 013746 002202 MOV UNITN, -(SP) 
075346 012746 077106 MOV @T39WPN, -(SP) 
075352 012746 000002 MOV @2,-(SP) 
075356 010600 MOV SP RO 
| 075360 104415 TRAP CSPNTX 
075362 062706 000006 ADO 06,SP 
| 6679 075366 000412 BR 2208 ;SKIP OVER 
| 6680 075370 210$: PRINTX @T39WRT,UNITN ; "DRIVE NUMBER XX IS WRT PRO” 
075370 013746 002202 MOV UNTTN, -(SP) 
075374 012746 077033 MOV @T3SOWRT, -(SP) 
075400 012746 000002 MOV @2,-(SP) 
075404 010600 MOV ,RO 
075406 104415 TRAP CSPNTX 
| 075410 000006 ADO ‘ 
6681 075414 012737 125252 076026 220%: MOV #125252 , T39BFR+100 ;SET 1 LOC TO KNOWN VALUE 
0 112737 000000 075721 MOV8 @0,7398S1 sEXTENDED TAPE STATUS 
| 6683 075430 112737 000024 075720 Move 024. 1398S0 sEXTENDED TAPE STATUS 
6684 075436 012704 075710 MOV @TSOPACKET ,R4 ;WRITE SUBSYS MEM PACKET 
6685 075442 010465 MOV R4,T sISSUE COMMAND 
6686 075446 012737 000144 075704 MOV #100. , TS90LY ;SET UP DELAY ROUT 
6687 075454 004737 016250 222%: JSR PC, WAITF ;WAIT AWHILE FOR SSR TO SET 
6688 075460 016501 000002 MOV TSSR(RS),R1 ;SEE IF IT REALLY DID 
| = 689 0 032701 000200 BIT @SSR,R1 ;JUST CHECK THAT BIT 
| 6690 075470 001017 BNE 225% :BR, IF SSR IS SET 
6691 075472 DELAY 250 ;DELAY ABOUT .25 SEC 
| 075472 012727 000250 MOV @250,(PC)+ 
075476 000000 . WORD 
075500 013727 002116 MOV LSOLY,(PC)+ 
075504 000000 .WORD 0 
075506 005367 177772 DEC “6¢PC) 
075512 001375 BNE 
075514 005367 177756 DEC "32cPC) 
| 075520 001367 .-20 
«6692 075522 005337 075704 DEC T390LY :START DELAY COUNT DOWN 
| 6693 075526 001352 BNE 222% :BR, IF COUNTER IS NOT AT DONE 
| 6694 075530 004737 016336 225%: JSR PC, CHKTSSR IWALT FOR SSR 





ee _—-4 
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TSVS - HARDWARE TESTS MACRO M1113 14-JUN-84 15:55 SEQ 0245 
TEST 11: CONFIGURATION TYPEOUT 

6695 O75S3% 103405 cs 2308 :8R, IF NO ERROR 

6696 075536 012901 MOV RO,R1 sERROR, SAVE TSSR 

6700 075540 ERRHRD ERRNO, TSONBA,PKTSSR :TSSR NOT CORRECT AFTER WRT. MISCELLANEOUS 
075540 108456 TRAP  CSERHRD 
075542 002124 : 1108 
075544 077165 “WORD  TS3ONBA 
075546 012046 “WORD  PKTSSR 

6701 075550 230%:  CKLOOP ;LOOP IF SELECTED 
075550 104406 TRAP = CSCLP1 

6702 075552 023727 076026 125252 cM T39BFR+ 100, 0125252 :DID LOC GET OVER WRIT TEN 

6703 075560 001013 BNE 2408 5 sR, IF IT OION’T GET ETC. 

6704 075562 PRINTX @T39ETN, UNI IN ;"DRIVE DOESN’ T HAVE EXT TAPE STATUS | 
075562 013746 002202 MOV UNITN, -(SP) 
075566 012746 076631 MOV @T39ETN, -( SP) 
075572 012746 000002 MOV @2,-(SP) 
075576 010600 MOV SP .RO 
075600 104415 TRAP —- COPNTX 
075602 062706 000006 ADO 06, SP 

6705 075606 000412 BR 2508 sSKIP OVER 

6706 075610 240%:  PRINTX @T39ETS,UNITN ;"DRIVE HAS EXT TAPE STATUS“ 
075610 013746 002202 MOV UNITN, -(SP) 
075614 012746 076542 MOV @T39ETS, -(SP) 
075620 012746 000002 MOV .-(SP) 
075624 010600 MOV SP RO 
075626 104415 TRAP  CSPNTX 
075630 062706 000006 ADD 66 ,SP 

6707 075634 005237 002202 250%: INC UNITN : BUMP 

6708 075640 023727 002202 000003 UNITN, @3 sAT END OF DRIVES YET 

1 BEQ 6 ;8R, IF NO MORE 5 

6710 075650 000137 075206 ry 175% 300 NEXT DRIVE 

6711 075654 63$:  PRINTX @T3ONFL ;NEW LINE 
075654 012746 076460 MOV OTSONFL, -(SP) 
075660 012746 000001 MOV #1,-(SP) 
075664 010600 HOV SP .RO 
075666 104415 TRAP —- C$PNTX 
075670 062706 000004 ADD 04,SP 

6712 075674 000137 000200 ep 200 ;RETURN TO SUPERVISOR 

6713 075700 64%: EXIT TST ;EXIT THIS SECTION 
075700 104432 TRAP —- C$EXIT 

a 075702 001736 .WORD 10076-. 

3° 

6715 ;LOCAL TEXT MESSAGES FOR TEST 

6716 - 

6717 

6718 LOCAL STORAGE FOR THIS TEST 

6719 ‘- 

6720 

6721 075704 000000 TSODLY: .WORD 0 ;DELAY COUNTER FOR TEST 

6723 075710 \ =<, ©10>€177770 

6725 075710 T39PACKET : sCOMMAND PACKET | FOR TEST 

6726 075710 140006 .WORD 140006 ;WRITE SUBSYSTEM CMD. ACK,CVC*1 

6727 075712 075720 “WORD ‘T39TAD ;ADORESS OF CHARACTERISTICS BLOCK 

6728 075714 000000 “WORD 0 

6729 075716 000012 “WORD 10. :STARTING VALUE OF BLOCK SIZE 

6730 075720 TSOTAD: :CHARACTERISTICS DATA BLOCK 

6731 075720 000 T398S0: .BYTE 0 ;BSELO BYTE 

6732 075721 000 1398S1: .BYTE © :BSEL1 BYTE 

! 





MACRO M1113 14-JUN-84 15:55 


T39BS2: .WORD 0 

-WORD O 
T39BFR: .BLKW 150 

#<,+10>€177770 
T39PK2: 

. WORD 140004 

.WORD TS39DTA 

-WORD O 

. WORD 10. 
T390TA: 

. WORD T39BFR 

-WORD O 

-WORD 256. 
T3S9EAI: .WORD O 
T390SW: .WORD 0O 

-*¢, ¢10>€177770 
T39PK3: .WORD 140012 

-WORD O 


; 
sWRITE TAPE PACKET 
; 
-*<,¢10>€177770 
140005 


T39PK4: .WORD 
T39WR: .WORD z 
T39SIZ: .WORD 256. 


3° 
sLOCAL TEXT MESSAGES FOR TEST 
g° 


SEQ 0246 
;BSEL1 WORD 
;DATA 
sMESSAGE BUFFER 
sCOMMAND PACKET FOR TEST 
sWRITE CHARA. ACK ,CVvC=1 


MEM. CMND., 
;ADDRESS OF SELECT DATA BLOCK 
sSTARTING VALUE OF BLOCK SIZE 


sSELECT DATA BLOCK 
sADORESS OF MESSAGE BUFFER 


sLENGTH OF MESSAGE BUFFER 
sEAI BIT WORD 
sORIVE SELECT WORD ETC 


sMESSAGE BUFFER RELEASE COMMAND 
sNOT USED 


sWRITE, ACK, CvC=1 COMMAND 
sADORESS OF WRITE BUFFER 

sMORE ADDRESS OF WRITE BUFFER 
sSIZE OF RECORD 


Not Executed’ 


TSVS - HARDWARE TESTS 
TEST 13: CONFIGURATION TYPEOUT 

6733 075722 000000 
6734 075724 000000 
6735 075726 

6736 

6737 

6739 076410 
6741 076410 

6742 076410 140004 
6743 076412 076420 
6744 076414 

6745 076416 000012 
6746 

6747 

6748 076420 

6749 076420 075726 
6 076422 000000 
6751 076424 000400 
6752 076426 900000 
6753 076430 000000 
6755 076440 
6757 076440 140012 
6758 076442 

6759 

6760 

6761 

6763 076450 
6765 076450 140005 
6766 076452 000000 
6767 076454 000000 
6768 076456 000400 
6769 

6770 

6771 

6772 

6773 

6774 

6775 

6776 

6777 

6778 

6779 

6780 076460 045 
6781 076463 123 
67862 076542 045 
6783 076631 045 
6784 076724 045 
6785 076770 045 
6786 077033 045 
6787 077106 045 
6788 077165 127 
6789 077241 103 
6790 

6791 077331 045 
6792 077403 045 
6793 077455 045 
6794 077464 045 
6795 077473 045 


116 000 TSONFL: .ASCIZ ‘SN’ 
164 141 TSONE: .ASCIZ ‘Stand-alone Configuration T 
116 045 TS9ETS: .ASCIZ ‘SNSA Ex 
116 045 TS9ETN: .ASCIZ ' 
116 045 T390F2: .ASCIZ ‘sSNA Dri 
116 045 TS9ON2: .ASCIZ ‘sNSA Drive Number 
116 045 TSOWRT: .ASCIZ ' 
116 045 TSOWPN: .ASCIZ ‘SNSA Drive 
111 TSONBA: .ASCIZ 
157 T3S9SSR: .ASCIZ 
116 045 TS9SFS: .ASCIZ ' 
116 045 139SB8S: .ASCIZ ‘ 
101 040 TS9OFF: .ASCIZ ' 
101 040 TS9ON: .ASCIZ ' 
116 045 TSOMCL: .ASCIZ ' 


Tepe Stetus Avaeilieble, Drive Number #D2' 
@NSA Extended Tape Stetus NOT Availiable. Drive Number #D2' 
Orive Number sD2sA 20 Gretna 

ca] -Line' 


Numbe 
‘WRITE SUBSYSTEM MEMORY Command aoe t Accep 
‘Contents of TSSR Incorrect After WRITE *eUesYSTEN MEMORY ' 
SNA State Of Extended Features Switch =' 
ws Stete Of Buffering Switch s' 


A ON ' 
NBA M7196 Microcode Revision Level =s802' 


96 
6797 077550 


000000 


000000 


012701 


104401 


TSVS - MARDWARE TESTS MACRO M1115 
TEST 11: CONFIGURATION TYPEOUT 


157 


14-JUN-64 15:55 SEQ 0247 
-EVEN 
TSORL: .WORD 0 
-EVEN 
-EVEN 


156 


3° 
sLOCAL STORAGE FOR THIS TEST 
3* 


toenest -WORD 0 sLOGICAL RESPONSE TO QUESTION 
SAVREG sSAVE THE REGISTERS 
MOV @TSOPACKET ,R1 sSTART OF THE PACKET 
MOV #140006 ,(R1)+ sWRITE SUBSYSTEM MEM. WITH ACK,CyC=1 
MOV @TSOTAD,(R1)+ sADORESS OF DATA BLOCK 
CLR (R1)e sEXTENDED ADORESS 
MOV #6. ,CR1)+ sSIZE OF DATA BLOCK IN BYTES 
CLR (R1)> sCLEAR BSELO AND BSEL1 
CLR (R1)> sCLEAR SEL2 
CLR (R1) sCLEAR DATA AREA 
RTS PC sRE TURN 


3¢ 
sLOCAL TEXT MESSAGES FOR TEST 
t- 


TST39I0: 
-EVEN 
ENDTST 


-ASCIZ ‘Configuretion Typeout’ 


L10076: 


TRAP Cs€TstT 


-S8TTL TEST 12: SCOPE LOOPS 


THIS IS A STANDALONE ROUTINE PROVIDING A NUMBER OF TIGHT ot 
gaye FS eet kenk tied shan ee ne ta 


ERROR” OR “LOOP ON TEST (SUBTEST)° FACILITIES DON'T 

ALLOW THE OPERATOR TO ZERO IN A Y 
Tests. (I.E, THE HARDWARE MAY NOT SE RESPONDING TO A REGISTER 

A BUS TRAP, EVEN THOUGH THE DEVICE ADORESS 

SELECTED BY THE PROGRAM S THE CONFIGURATION SET UP IN THE 
HARDWARE DIP SWITCHES). THE FOLLOWING MENU OF SCOPE ARE 
AVAILABLE ; 

CODE SCOPE LOOP 


0 HELP. PRINT THIS MENU. 

i TSBA READ ACCESS 

2 TSSR READ ACCESS 

3 INITIALIZE (TSSR WRITE ACCESS) 
4 TSOB HIGH BYTE WRITE ACCESS 





TSVS - HARDWARE TESTS 
TEST 12: SCOPE LOOPS 


6851 
S2 


001403 
012700 1012355 
012700 101302 
006737 016510 
004737 020500 
103402 
000137 100356 
004737 015774 
103405 
010001 
104455 
00°261 
003652 
012034 
012700 100374 
012701 000010 
00473 
005700 
001760 

7 000007 
001015 
005737 002226 
001012 
012746 101157 
012746 000001 
010600 
104417 
062706 000004 
000137 077676 
010004 
012700 900340 
104441 
005037 100366 
032737 000100 177560 
001005 


ec os of oe Ge oe oe oe oe oe oe os 
' 


1%: 
1008; 


2s: 


5$: 


38: 


C4 
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NOU 


SEQ 0248 


TSO8 — BYTE WRITE ACCESS 


WORD WRITE ACCESS 


TSOB MAINTENANCE -MODE 
TSOBX (TSSR HIGH BYTE) WRITE ACCESS 


CEXTENDED FEATURES ba Ne MUST BE ON 
E OOE 7) 


TO USE SELECT 


ION C 


8 EXIT (RETURN TO SUPERVISOR) 
FOR SCOPE LOOPS THAT WRITE 1 ee atti THE PROGRAM PROMPTS 


THE OPERATOR FOR THE DATA 


WRITTEN. TYPING <RETURN> CAUSES 


AN EXIT FROM THE SCOPE LOOP BACK TO MENU LEVEL. 


BGNTST 

RFLAGS RO 

BEQ 1s 

MOV @T40NE ,RO 
BR 100¢ 

MOV @TST40ID,RO 
JSR PC, TSTSETUP 
JSR PC, CHKMAN 
BCS 2s 

JP 648 

JSR PC SOF INIT 
BcsS S$ 

MOV RO,R1 

ERROF ERRNO, SFIERR,SFIMSG 
MOV @SCMENU RO 
MOV 6. Ri 

JSR PC ,GETSEL 
TST RO 

BEQ 2s 

chp aad 

TST _ EA 
PRINTF @#€XFMSG 

Jp es 

MOV RO,R4 
SETPRI @PRIO7 


TTION 
BIT + alan 


Tle:: 
3GET OPERATOR FLAGS 


s8R, IF OK TO RUN 
s“TEST NOT EXECUTED” 


300 THE COMMON SETUP 
IF MANUAL INTERVENTION ALL 

sCARRY SET IF ION ALLOWED 

sEXIT IF NO ION 

300 A SOFT INIT 

sBRANCH IF OK 

sCONTENTS OF TSSR REGISTER 

SREPORT FATAL ERROR 
TRAP CSEROF 
-WORD 1201 
.WORD SFIERR 


. WORD 
sMENU OF ong LOOP +o + aaa 


NOT 

sCHECK FOR EXTENDED FEATURES SET 

sBR, IF IT IS ON 

sWARN OPERATOR EXTENDED FEATURES CLEAR 
MOV @EXFMSG, -( SP) 
MOV @1,-(SP) 
MOV SP RO 
TRAP CSPNTF 
ADO #4, SP 

13GO BACK TO BASIC MENU 

sSAVE THE MENU SELECTION 

sRAISE THE PRIORITY 
MOV @PRIO7 RO 


TRAP CSSPRI 
sASSUME INTERRUPTS ARE ENABLED 
sARE TTI INTERRUPTS ON ? 
sBRANCH IF YES 


TSVS - HARDWARE TESTS 
TEST 12: SCOPE LOOPS 


MACRO M1113 


020174 


000000 
020174 


000000 
020174 


4$; 


68: 


108: 
12%: 


326: 


14-JUN-84 15:55 


ASL 


Sgazeg *JRGGng "28228 5282 25 pessseeee’ 


D4 


TTION 

€100, peTTICsR 
(R1), vTvECsaV 
0608, 

(R1)_ TPRISAV 


@PRIO7,(R1) 
@PRIOO 


@TSSR ,R3 
RS.RS 
CR3),RO 
18% 

PC .GETPAT 
2R1 
@TSSR RS 

RS,RS 
R1,CR3) 
22% 
TSOBCRS ) 
PC, _ 
RO,R 
ors0BH, RS 
RS,R3 

Ri, caer 
278 
TSOBC(RS ) 
PC .GETPAT 
RO,R1 
#TS0B RS 
R5,R3 
R1,(R3) 
328 


sFLAG SET IF —- OF F 


sLOWER INTERRUPT BR LEVEL 
MOV 


TRAP 


sCONVERT TO WORD OFFSET 
ooP 


TE ACCESS 
sTSOB HIGH BYTE WRITE ACCESS 


sTSOB LOW BYTE WRITE ACCESS 
sTSOB MAINTENANCE MODE 
sTSOBX WRITE ACCESS 

sLEAVE THE TEST 


sENTER MAINTENANCE 
sREAD TSBA REGISTER 
sLOOP UNTIL HALTED 


sADORESS OF TSSR REGISTER 


sLOOP UNTIL STOPPE 


sREAD THE DATA PATTERN 
;DATA PATTERN FOR LOOP 
sADORESS OF TSSR 

;POINT TO TSVOS'S REGISTERS 
s;WRITE DATA TO 7SSR 

sLOOP 


sENTER MAINTENANCE MODE 
sREAD THE DATA PATTERN 
sDATA PATTERN FOR 


LOOP 
OF HIGH BYTE OF TSOB 


s ADORESS 

:POINT TO TSVO5'S REGISTERS 
sWRITE THE = A TO TSOB, 
sLOOP UNTIL S1OPPED 


sENTER MAINTENANCE MODE 
sREAD THE DATA PATTERN 
;DATA PATTERN FOR LOOP 


sADORESS OF TSSR 
:POINT TO TSVOS'S REGISTERS 


sWRITE DATA TO TSSR, LOW BYTE 
sLOOP UNTIL HALTED BY OPERATOR 


MIGH BYTE 


SEQ 0249 


@PRIOO ,RO 
SPRI 


TSVS - HARDWARE TESTS 
SCOPE LOOPS 


TEST le: 


6957 
958 


100374 


000776 


100426 
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020174 
000000 


020174 


177562 
000200 
000015 
077676 
000004 
100370 
100372 
100366 


000100 


177560 


35%: JSR PC ,GETPAT 
MOV RO,R1 
MOV @TS0B RS 
ADD RS,R3 
378: MOV R1,(R3) 
BR 37% 
40%: JSR PC ,GETPAT 
RO,R1 
MOV @TSSRH,RS 
ADO RS,R3 
42%: MOVB R1,(R3) 
BR 42% 


3¢ 
sPROCESS CONSOLE INTERRUPTS 
3 - 


60$: MOV RO, -( SP) 


BIC #200, 

CMPB #15,RO0 

BNE 1$ 

MOV #2% ,.2(SP) 

CLR ) 

MOV TVECSAV , B@TTIVEC 
MOV TPRISAV , @@TTIVEC +2 
ane TTION 


61% 
BIC #100, @@TTICSR 
61%: MOV (SP)+,RO 


64%: 
63%: EXIT TST 


65%: Jp 200 


3° 
sLOCAL STORAGE FOR THIS TEST 
ge 


TTION: -WORD 0 
TVECSAV: -WORD O 
TPRISAV: -WORD 0 


3¢ 
sMENU FOR OPERATOR INPUT FOR SCOPE LOOPS 


-EVEN 
100501 100527 SCMENU: . WORD 1%,2¢,3%,4%,5%,6% 





SEQ 0250 


sREAD THE DATA PATTERN 
sDATA PATTERN FOR LOOP 
sSELECT TSOB 

sPOINT TO TSVOS’S REGISTERS 
sWRITE THE DATA PATTERN 


sLOOP UNTIL HALTED 


sREAD THE DATA PATTERN 

sSAVE THE DATA PATTERN 

sBYTE ADDRESS OF TSSR, HIGH BYTE 
sPOINT TO TSVO5’S REGISTERS 
sWRITE THE DATA TO REGISTER 
sLOOP UNTIL HALTED 


sSAVE WORK REGISTER 

sGET THE OPERATOR INPUT 
sSTRIP OFF PARITY BIT 

sIS IT A St RETURN ? 


IORIT 
sARE SUPERVISOR INTERRUPTS ENABLED ? 
sBRANCH IF YES 
sTURN OFF TTI INTERRUPTS 
sRESTORE REGISTER 
sRETURN FROM INTERUPT 


sEXIT THE TEST 
TRAP CsExIT 
-WORD 110077-. 
sRETURN TO SUPERVISOR 


sWORD SET IF SUPERVISOR TTI INTER OFF 
SAVE TTI VECTOR 
sSAVE TTI PRIORITY 


- HARDWARE 


TESTS 


TSVS 
TEST 12: SCOPE LOOPS 
7012 100410 100700 100736 101004 


7031 101316 
101316 
101316 

7032 101320 
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. WORD 
1%; .ASCIZ 
2s: -ASCIZ 
3$: .ASCIZ 
4s; -ASCIZ 
5% -ASCIZ 
6%: -ASCIZ 
7%: -ASCIZ 
8s: -ASCIZ 
9%: .ASCIZ 
108: -ASCIZ 
1%: -ASCIZ 
128: -ASCIZ 
EXFMSG: .ASCIZ 
T40NE: ASCI 
TST40ID: 
.EVE 
ENOTST 
ENDMOD 


7$,6%,9%,108,11%,128,0 


— os SCOPE LOOP FROM FOLLOWING OPTIONS: ' 


SR Reed 
Initielize CTSSR Write Access)’ 
TSOB High Byte Write Access’ 
TSOB Low Byte Write Access’ 

TSOB Maintenence Mode Write Access’ 
TSOBX CTSSR High Byte) Write Access’ 
Return to Diagnostic Supervisor’ 


@SraAKUlwrro 


Be RETURN To Stop Scope Loops’ 

eee Extended Features Switch Not On see ' 
‘Stand-alone Scope Loops Not Executed’ 

-ASCIZ ‘Scope Loops’ 


< 
' 
’‘ 
‘ 
' 
' 
' 
' 
’ 
1 
' 


L10077: 
TRAP 


SEQ 0251 


CsETSsT 


a a a ee a ES NS A a cee e+ ne ee re ee ee ee cee ee = 


G4 


TSV6 - PARAMETER CODING MACRO M1113 14-JUN-34 15:55 SEQ 0252 
TEST 12: SCOPE LOOPS | 
1 .TITLE TSV6 - PARAMETER CODING | 
7 
12 | 
18 
19 101320 BGNMOD TSV6 
101320 TSV6:: 
20 
21 .SBTTL HARDWARE PARAMETER CODING SECTION 
22 
23 3° 
| 24 | THE HARDWARE PARAMETER CODING SECTION CONTAINS MACROS 
| 25 ; THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. THE 
26 s MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
| 27 ; INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
| 28 s MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
| 29 ; WITH THE OPERATOR, 
gee 
31 101320 BGNHRO 
101320 000010 .WORD L10100-L $HARD/2 
| 7 101322 L$HARD: : 
33 101322 GPRMA HPM1,0,0,160010,177776, YES :GET TSBA/TSOB REGISTER ADORESS. 
101322 000031 .WORD  TSCODE 
101324 101342 -WORD  HPM1 
101326 160010 “WORD  TSLOLIM 
| 101330 177776 "WORD  TSHILIM 
34 101332 GPRMA HPM2,2,0,0,776, YES ;GET VECTOR ADDRESS. 
101332 001031 .WORD  TSCODE 
101334 101376 “WORD HPM2 
101336 000000 “WORD  TS#LOLIM 
| 101340 000776 "WORD TSHILIM 
35 ;GPRMD HPM3,4,0,340,0,7, YES :GET INTERRUPT PRIORITY. 
36 101342 ENDHRO 
EVEN 
101342 L10100: 


37 101342 104 105 126 HPM1:  .ASCIZ ‘DEVICE ADORESS (TSBA/TSDB) 
36 101376 111 116 124 HPM2: .ASCIZ ‘INTERRUPT VECTOR 
39 101422 111 116 124 HPM3; -ASCIZ ‘INTERRUPT PRIORITY 





a ee ee = a ee ee 


H4 
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| SOFTWARE PARAMETER CODING SECTION 


62 101572 


000003 


001130 
101512 
177777 


116 


105 


-SBTTL SO’ TWARE PARAMETER CODING SECTION 


see 
; THE SOFTWARE PAPIAMETER CODING SECTION CONTAINS MACROS 
; THAT ARE USED By THE SUPERVISOR TO BUILD P-TABLES. THE 
s MACROS ARE NOT EXECUT™D AS MACHINE INSTRUCTIONS BUT ARE 
: INTERPRETED 27 THE SUPERVISOR AS DATA STRUCTURES. THE 
s MACROS ALLOW THE sects VISOR TO ESTABLISH COMMUNICATIONS 
; WITH THE OPERATOR 

3 


BGNSF T 

-WORD L10101-L#SOFT/2 
LSSOFT:: 
PF 


GPRML $PM1,0,-1, YES s GET TRANSPORT TEST FLAG. 
GPRML SPM4.2, - 1,YES s GET ITERATION CONTROL. 
.WORD TSCODE 
. WORD 
-WORD -1 

3 GPRMD SPMG .4,0,7777,0, 7777, YES ; GET LOCAL ERROR LIMIT 

3 GPRMD SPN7 .6,.0,7777,0, 7777, YES : GET GLOBAL ERROR LIMIT 
ENDSFT 
EVEN 

L10101: 


SPM1: .ASCIZ ‘ENABLE TRANSPORT TESTS 

spm4: .ASCIZ ‘INHIBIT ITERATIONS 

SPM6:  .ASCIZ ‘PER TEST ERROR LIMIT 

SPM7: .ASCIZ ‘PER UNIT ERROR LIMIT 
-SBTTL PATCH AREA 


-_-.f. = 


H 
; FINALLY A GENEROUS PATCH AREA. 
; AND AN ADJUSTMENT TO ACCGUNT FOR oy Tse BIT7” HACK 


; DESCRIBED IN “SUPPRG.MEM” (FOR RE 
; 


PATCH: : 


LASTAD ;SET LAST USED ADDRESS. 
“EVEN 


L$LAST::. 
E 
“END 


TSV6 - PARAMETER CODING MACRO M1113 14-JUN-64 15:55 SEQ 0254 
SYMBOL TABLE 

ADDSSR 012126 G CsAU_ = 000052 DEVORO 023332 FREEHI 003130 INTCPC 016150 
ADR = 000020 C$AUTO= 000061 DEVNRD 023251 FRESIZ 003126 G INTFLA 016145 | 
AMBTSS 006635 C$BRK = 000022 DEVNXR 023167 FUSI 004117 INTMAS 016144 

| ASSEMB= 000010 C$BSEG= 000004 DEVON. 023117 F#AU = 000015 INTR 016216 G 
A1716 = 000003 C$BSUB= DEVSUM FSAUTO= 000020 INTREC 002224 G 
/BADDAT 003156 G CSCEFG= 000045 OFPTBL 002156 G F#BGN = 000040 INTVEC 016146 
| BADSSR 015700 G CSCLCK= 000062 DIAGMC= 000000 FSCLEA= 000007 INTX 
| BOVPCR= 177520 G CSCLEA= 000012 DICEB = 000001 F8OU = 000016 INVERT 021142 G 
| BENBSW 002230 G C#CLOS= 000035 DSBINT 016204 F#END = 000041 IOKCKI= 
| BIE = 080000 CsCLPi= DUAD12 3 FSHARD= 000004 IOKSTP« 1 
/BITO = 000001 G CSCVEC= 000036 DUFLG 003112 G FeHw = 000015 I 002212 G 
| BITOO = 000001 G C$OCLN= 003062 FSINIT= 006006 ISR = 000100 
BITO1 = 000002 G C#D00U= 000051 EF .CON= 000036 G FSUMP = C0050 IVEC 002210 G 
BITO2 = 000004 G CSORPT= 000024 EF .NEW= 000035 G FSMOD = IXE = 

BITOS = 000010 G Cs0U = 000053 EF .PWR= 000034 G F#MSG - 000011 $AU = 000041 
BITO4 = 000020 G CSEDIT= 000003 EF .RES* 000037 G FSPRUI= 000021 I$AUTO* 000041 
BITOS = 000040 G C#EROF= 000055 EF .STA= FSPWR = 000017 ISCLN = 000041 
BITO6 = 000100 G CSERHR= 000056 EMAXDU 016777 FSRPT = 000012 180U = 000041 
BITO7 = 000200 G CSERRO= 000060 EN ss FS8SEG = 000003 I * 000041 
BITOB = 000400 G CSERSF= 000054 ENAINT 016152 F¢SOFT= 000005 I$INIT= 000041 
BITO9 = 001000 G CSERSO* 000057 ENVIRN 30 FSSRV = 000010 $M0D = 000041 
BIT1 = 000002 G C#ESCA= 000010 EPRTSW 002200 G F#SUB = 000002 ISMSG = 000041 
BIT10 = 002000 G CSESEG= EPRT1 360 F8SW = 000014 I$PROT= 000040 
BIT11 = 004000 G CSESUB= 000003 EPRT2 FSTEST= 00000 I$PTAB= 000041 
BITi2 = 0 G CSETST= 000001 ERCM 011733 003160 G I$PWR = 000041 
BIT13 = 020000 G C#EXIT= 000032 ERRHI 236 G 002174 G I$RPT = 000041 
BIT14 = 040000 G C&GETB= 000026 ERRK 016756 GETPAT 020174 G I$SEG = 000041 
BITIS = G C$GETW= 000027 ERRLO 240 G GETSEL 020256 G I$SETU= 000041 
BIT2 = 000004 G c 000043 ERRNO = GSCNTO= 000200 1$SFT = 000041 
BITS = 000010 G CSGPHR= 000042 ERRVEC= GSDELM= 000372 I$SRV = 000041 
BIT4 = 000020 G C#GPLO= 000030 ERTABE 003376 GSDISP= 000003 I$SUB = 000041 
BITS = 000040 G CSGPRI= ERTABL 003176 GSEXCP= 000400 IsTST = 000041 
BIT6 = 000100 G C$INIT= 000011 ESUM 016760 GSHILI= 000002 J$UMP = 000167 
BIT7 = 000200 G CSINLP= ev. = GSLOLI= 000001 KIPARO= 172340 
BIT8 = 000400 G CSMANI= EXBCNT= 10 G#NO = 000000 KIPAR1= 172342 
BIT9 = 001000 G CSMEM = 000031 EXFMSG 101157 GSOFFS= 000400 KIPAR2= 172344 
BOE = 000400 G C&MSG = 000023 EXPBRE 015502 G GSOFSI= 000376 KIPAR3S= 172346 
BRINIT 004457 CSOPEN= 000034 EXPD 002232 G GSPRMA= 000001 KIPAR4= 172350 
BSELO = 000000 CSPNTB= 000014 EXPGOT 004533 G#PRMD= 000002 KIPARS= 172352 
BSEL1 = 000001 $PNTF= 000017 EXPGT2 004567 GSPRML= 000000 KIPAR6= 172354 

016044 CSPNTS= 000016 EXPMSG 322 GSRADA= 000140 KIPART= 172356 
020500 G C$PNTX= 000015 EXPREC 015474 G GSRADB= KIPDRO= 172300 

CHKTSS 016336 C#QI0 = 000377 EXTA 005772 GSRADD= 000040 KIPOR1= 172302 
CKDROP 017202 C&ROBU= 000007 EXTEND 005770 GSRADL= 000120 KIPDR2= 172304 
CKEMAX 017102 CéREFG= 000047 EXTFEA 002226 G GSRADO= 000020 KIPORS= 172306 
CKMSG 011360 G CERESE= 000033 EsEND = 002100 GSXFER= 000004 KIPOR4= 172310 
CKMSG2 011500 G CéREVI= ESLOAD= 000035 GSYES = 000010 KIPORS= 172312 
CKRAM 011114 G CéRFLA= 000021 FATERR= HIADOR= 001400 KIPOR6= 172314 
CKRAM2 011224 G CERPT = 000025 FATFLG 002222 G HOE = 100000 G KIPOR7= 172316 
CMDPKT 021214 G CSSEFG= 000046 FERCM 1722 HPM1 101342 KT 003134 G 
CHPMEM 017660 CSSPRI= FIFEXP 012170 G HPM2 101376 KTFLG 003132 G 
CONFIG 017250 C#SVEC= 000037 FIFIMS 242 HPMS 101422 KTINIT 021010 
COUNT 002310 G CSTPRI= 000013 FIFQMS 012311 IBE = 010000 G KTOFF 017274 
CSRADD 002206 G DATA 002312 G FILLME 017422 I0bU = KTON 017256 
CTAB 003164 G DATASC FNOINT 215 IER = G LERRMA 002172 G 
CTABE 003176 G 011632 FORCER 002176 G IFAULT 256 LERRNO= 000000 
CYABM 003164 G DEVCNT 002220 G FREE 003124 G INCERK 017044 LISTAL= 000001 
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SYMBOL TABLE 
LOE = 040000 G LSUNIT 002012 G L10071 056470 OFL = 000100 PRMNO 002320 G 
| LOOPCN 002216 G L10000 002164 L10072 057734 ONEFIL= 000000 PRMSGE 014552 G 
LOOPCO 013126 L10001 002176 L10073 066624 OS$APTS= 000000 014732 | 
| LOOPFL 003162 G L10002 005766 L10074 064764 OsAU = 000001 PRMSG1 014777 
LOT = 000010 G L10003 012044 L10075 074466 OSBGNR= 000001 015035 
-LSACP 002110 G L10004 012062 L10076 077640 OSBGNS= 000001 PROASC 014420 
|LSAPT 002036 G L10005 012100 L10077 101316 0s0U = 000001 PRIASC 014465 
LsAU 022306 G 1.10006 012106 L10100 101342 OSERRT= 000000 PST32W 003152 G 
L$AUT 002070 G L10007 012124 L10101 101462 OS8GNSW= 000001 022240 
L$AUTO 022512 G L10010 012142 013754 G O#sPOIN= 000001 Pw.011* 000021 
L$ 002106 G L10011 012166 MEMCK 021232 G O$SETU= Pw.013= 000022 
L$CLEA 022572 G L10012 012240 MENASC 7 PASRPT 0 Pu. 022= 
Lsco G L10013 012410 MENERR 020374 PATCH 101622 G PW.NOP= 000000 
L$DEPO 002011 G L10014 013124 MENRES 020476 PATDAT 020230 PW.NO1= 000023 
LSDESC 003410 G L10015 013752 MIMENU 073352 PC.ERA= 002400 PW.RDE= 000024 
LS$DESP 002076 G L10016 013774 MMVEC = 000250 PC. IER= PW.ROR= 000001 
LSDEVP G L10017 015500 MSA.FR= 000006 .NOO= 001000 Pw. ROS= 
L$DISP 002124 G L10020 015506 MSA.NO= 000000 »REL® PW.RFI= 000003 
L$DLY 002116 G L10021 015514 MSA.NR= 000004 PC.REW= 000400 PW.WCT= 000006 
L$OTP 002040 G L10022 526 MSA. VO= PKBCNT= 000006 PW.WFI= 000004 
L$DTYP 002034 G L10023 015550 MSGEXP 012144 G PKHI = 000004 PW.WFM= 000007 
L$0U 022404 G L10024 015576 MSGLOO 01 G Ow = 000002 PW.WMI= 000010 
L$ 002072 G L10025 015736 MSGSTA 012350 G PKTADD 007554 PW.WNP= 000011 
LSDVTY 003402 G L10026 016246 MSGSUB 013742 G PKTFRM 007516 PW.WTR= 000002 
LSEF 002052 G L10030 022236 MS.ATT= 000006 PKTGET 012064 G P.ACK = 100000 
LSENVI 002044 G L10031 MS.EXT= 000200 PKTMES 012110 G P.CMD = 000037 
LSETP 002102 G L10032 022510 MS.RSD= 000001 PKT 004745 G P.CONT= 000012 
LSEXP1 002046 G L10033 022570 MS.RSF= 000020 PKTSSR 012046 G P.CVC = 040000 
LSEXP4 002064 G L10034 022616 MS.RST= 000010 = 001000 G P.FMT = 000140 
LSEXPS 002066 G L10035 023060 M8186 005554 PRAMPK 013776 P.FORM= 000011 
LSHARD 101322 G L10036 M8189 PRASC 014523 P.GETS= 000017 
LSHIME 002120 G L10037 026356 NBA PRBEXP 015470 P.IE = 
LSHPCP 002016 G L10040 NEWPAS 021744 015336 P.INIT= 000013 
LSHPTP G L10041 025104 NODEV 003114 G 015472 P.MODE= 007400 
Ls © 002156 G L10042 031752 NOEXTF 030146 PRBTOT 015423 SP LOPP = 
L$ICP 002104 G L10043 7 NOINIT 3 PRBYTE 015122 G P.POSI= 000010 
LSINIT 021512 G 110044 027222 INTR 1 PRI = P.READ= 000001 
L$LADP G 110045 NOITS 002170 G PRIADD 010160 P.SWB = 010000 
LSLAST 102004 G 110046 030152 PRIAO 0102 P.WRIT= 
L$LOAD 002100 G 110047 034542 PRIBXO 007612 G P.WRTC= 000004 
L$LUN 002074 G L10050 032306 NP.IR = 000200 PRIEQU 01 P.WRTS= 000006 
LSMREV 002050 G L10051 032700 NP.LOO= 000040 PRIPKT 007370 G ave 002204 G 
L$NAME 002000 G L10052 033306 NP.OUT= 000100 010066 R 014156 
LSPRIO 002042 G L10053 040334 NP MRP © PRITAD 010274 RAMDAT 002242 G 
LSPROT 021502 G L10054 035626 NSI 004152 PRITSS RAMERR 015510 G 
L$PRT 002112 G L10055 036560 NSINIT 00440 PRITO 010356 RAMEXP 015530 G 
LSREPP 002062 G L10056 NUL 004527 PRIT1 010421 RAMFOR 010116 
LS$REV 002010 G L10057 NULCR 004530 PRIXOR 007742 G RAMSIZ 
L&RPT 022620 G L10060 04 NXM os I00 = 000000 G RAMTAD 015516 G 
L$SOFT 101454 G L10061 043410 NXMFLG 003136 G PRIO1 = 000040 G RCVHIA 002304 G 
|L$SPC 002056 G L10062 043766 NXMHI 003142 G PRIO2 = 000100 G RCVLOA 002306 G 
| L$SPCP 002020 G L10063 045240 NXMLO 003140 G PRIO3 = 000140 G RDERR 
LS$SPTP 002024 G 110064 NXMTST PRIO4 = 000200 G RECMSG 
L$STA 002030 G L10065 051726 NXR 003740 PRIOS = 000240 G Cv 002234 G 
'L$SW = 002166 G L10066 NXRERR 005736 G PRIO6 = 000300 G REGSAV 020140 
|LSTEST 002114 G L10067 053732 NXRX 003777 PRIO7 = 000340 G RETERR 005372 
002014 L10070 055220 NXTU 021756 PRMESS 014242 REWIND 011014 G 


| LéTIM 
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TABLE 


000167 
000200 


$1.IID= 


TST391 


004000 
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TST40I 


023402 G 





033352 


SEQ 0256 


a a i ee ee 2 eee a ee eee ee ee ee wo ° -— 
1 


L4 
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SYMBOL TABLE 
T17SNP 050006 T19SSR 060203 T3 026360 G T3ONBA 077165 WF .IED= 000010 
TA7SRD 047744 T19WCT 062102 T3BFLG 003150 G T39NE 076463 WF .TER= 000004 | 
| TI7SSR 046605 TIQWFI 062046 T3.1 026406 T3ONFL 076460 WF .IHI= 000200 | 
| TI7WFD 046464 TLOWFM 062122 73.2 026746 T39OFF 077455 WF .IRE= 000040 | 
| T17WFI 050032 T19WST 061503 13.3 027236 T390F2 076724 WF .IWF= 000020 
| T1710M 047125 T191CM 060640 13.4 7534 T390N 077464 WF .IWR= 000100 
T172CH 047207 T192CM 060722 T3BASC 074421 T390N2 076770 WF .I3R= 
T172SS T192SS T3BASN 074440 T39PAC 075710 WF .T4R= 000001 
T173CMH 047303 T19SCM 061016 T38ASO 074316 13 076410 TCHR 010662 G 
T173SS 046706 T193SS T38AS1 074363 T39PK3 076440 WRTERR 005113 
74CH 047367 T194SS 060351 T36BFR 071446 T39PK4 076450 
T174SS T195CM 061104 T388SO 071440 T3ORES 077554 021224 G 
T17SCM 047452 T195SS 060414 T388S1 071441 T39RL_ 077550 XFERAS 015740 
T175SS 047016 TI96CH 061160 T3eBS2 071442 T39S8S 077403 016376 
T176CH 047526 T196SS T3BCNT 074464 T39SFS 077331 XORBFO 007674 
T176SS 047062 Ti97CH 061243 T38OAT 073754 T39SIZ 0764 XORFOR 010012 
T177CH 047634 TI97SS 060523 T38OLY 071422 077241 XSTO = G 
T18BFR 051 T1i96CM 061331 T380SW 072150 T39TAD 075720 XST1 = 000010 G 
T18CHP 051363 T198SS 060572 T38DTA 072140 13 077106 XST2 = 000012 G 
TI8DAT 051650 T199CM 061420 T38EAI 072146 T3OWR 076452 XST3_ = 000014 G 
T180T2 051720 T2 024366 G T38EB 072122 T3OWRT 077033 XST4 = 000016 G 
T18EXP 051126 T2.1 024404 T38ID_ 073325 14 031754 G XSOBOT= 000002 
T1800 T2.2 024654 T38INT 072716 14.1 XSOEOT= 000001 
TI@MSK 051122 T20BEN 066502 T3EMBP 074014 14.2 032310 XSOIE = 
T18PAC T20BFR 066362 T38MSG 073265 14.3 0327 XSOILA= 000400 
T18PK2 051710 T208F S T38MS1 073126 TAONE 101235 XSOILC= 001000 
T18SET 051530 T20CLE 066274 T3EMS2 073221 TS 34544 G XSOLET= 020000 
TI8SMI 051506 T20CLR T3EMS3 072265 5.1 034562 XSOMOT= 000200 
T18SRD 051466 T20CWP 065767 T38NBA 072552 15.2 03 XSONEF = 
TI8SSR 051215 T20DAT 066350 T36NE 072210 16 040336 G XSOOML= 000100 
T18xS 051152 T200T2 066520 T380FL 07 16.1 XSOPED= 000010 
T182SS 051252 T20EXE 065142 T380M. 072746 16.2 040654 XSORLL= 010000 
T183SS 051316 T20EXP 06 TS8PAC 071430 16.3 042064 XSORLS= 040000 
T19BEN T20EXS 065042 T38PK2 072130 16.4 043424 XSOTHK= 100000 
T198FC 057756 T20L00 062574 T38PKS 072160 16.5 XSOVCK= 
TI9BFR 062312 T20MSK 065016 T 07 16.6 XSOWLE= 004000 
T19BFS 062332 T20PAC T3ORES 073756 17 050450 G XSOWLK= 
TI9CLE 062160 T20PK2 066510 T38SIZ 072206 18 051730 G XXCOMM 003122 G 
TI9CLR 061714 T2ORF I T38SSR 072626 8.1 051746 X$ALWA= 
T19CNV T2ORSF 065666 T38SST 073036 18.2 053746 X$FALS= 000040 
TI9DAT 062300 T20SET 066314 T38TAD 071440 8.3 055234 X$OFFS= 000400 
T190T2 062450 T20SEX 072505 18.4 X$TRUE= 000020 
TISEXE 060142 T20SRD 0661 T3EMR 072202 19 062556 G X1.COR= 020000 
T19EXP T20SSR 065171 T3OWRL 072444 19.1 062574 X1.0LT= 
TI9EXS 06004 T20SWP 065557 T38WRT 072360 . X1.MBZ= 017375 
T19L00 051746 T2OMFI 066166 T39BFR 075726 UNITN 002202 G X1.RBP= 
TISMSK 060016 T20MFM 066222 T398SO0 075720 UNREC = 000006 X1.SPA= 040000 
TI9PAC 062270 T2O0WMI 1398S1 075721 USI. 004123 X1.UNC® 
T19PK2 T2OUNP 966126 T398S2 075722 WAITF 016250 G -BUF = 000100 
TI9PRE 057754 T T390AT 077552 WC. IFAs X2.EXT= 
TI9RFI T203SS 065272 T39DLY 075704 WC. IFE® .OPH= 100000 
TIORSF 061760 T204SS 065337 T 076430 we. X2.RCE® 
TI9RST 061610 T205SS T390TA 076420 WC.IRE= 000010 X2.REV= 000077 
TI9SET T206SS T39EAI 076426 WC. IRW= 000004 X2.SPA= 035400 
TI9SEX 062142 T208SS 065511 T39ETN 076631 WC.IOT= 000100 X2.UNI= 
TI9SNP 062002 T23A 003144 G T39ETS 076542 WC. IiTe X2. WOF = 
TI9SRD 061740 T238 =: 003146 G TSOMCL 077473 WC.ISR= 000020 X3.DCK= 000010 





i 
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SYMBOL T 

X3.MBZ= 000006 X3.REV= 000040 
| X3.MDE* 177400 X3.RIB= 000001 
X3.0PI= 000100 X3.SPA= 000200 


| 


. ABS. 102004 000 


| 000000 «O01 
| ERRORS DETECTED: 0 


| VIRTUAL MEMORY USED: 31032 WORDS ( 122 PAGES) 
DYNAMIC MEMORY : 20614 WORDS ( 79 PAGES) 


TIME 


X3.TRF= 000020 
X4.HSP= 100000 


ELAPSED : 00:46 
CvTssc ,CvTSBC UST/-SP=SVC 7 » TSV1B, TSV22B, TSV3B, TSV4, TSVSSB, TSV6 


X4.MBZ= 017400 
X4.RCE= 040000 


X4,TSM= 020000 
X4,.WRC* 000377 


